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Sn the night they hand out awards for speed, 
versatility, and dependability, the Commo- 
dore 1541 need not rent a tux. Third party 
drives like the MSD SD-2 and the Indus GT 
have bested it in every category but price. If that last word 
prompted you to say, "Aha! But see?", then you probably 
wouldn't even consider upgrading. And why should you? 
For the price you probably paid, your Commodore 1541 
does a more than adequate job. And it will do an even 
better job after you soup it up with the programs in this 
issue of Ahoy! 

• The most important program, unfortunately, you'll 
have to buy. In the conclusion to Disk Spinners, Morton 
Kevelson examines three best-selling drive accelerators — 
Fast Load, Kwik-Load!. and 1541 Flash— and helps you 
choose the package that's right for your needs. (Turn to 
page 33.) 

• Once you've sped up your 1541 you can speed up 
your ability to access it with Dos Plus. Dennis 
Muscatelli's C-64 utility puts a powerful tool kit at your 
fingertips. (Tlim to page 39.) 

• Examining and modifying disk files is interesting 
and useful. Going through standard file processing rou- 
tines to do so is tedious. Mark Johansen's Disk Display 
and Update Utility {DSKDUxo you) gives you direct ac- 
cess to any sector on a disk. (Turn to page 25.) 

• You'll never be able to bounce bullets off your disk 
drive. But Super Duper by Dave Barron (not Ahoyfs 
Technical Editor, but a Mississippi-based programmer) 
will at least let you copy sequential or program files, re- 
name files, and dupe ML programs without knowing 
starting and ending addresses. (Turn to page 29.) 

• If there's anything worse than a word processor that 
scrolls horizontally, it's a disk directory that scrolls ver- 
tically—namely, any C-64 disk directory that contains 
25 or more entries. But Two-Column Directory by 
Richard Lovett and Barry Archer will let you view 40 
file names at a glance. (Turn to page 30.) 

We figure that's about all the sprucing up your disk 
operations can handle in one month. As for the rest of 
the programs and features in this issue: 

• The Commodore Font Editor by Adventure Interna- 
tional programmer Phillip Case will allow you to easily 
create your own personalized characters or character sets 
on the C-64. (Turn to page 82.) 

• Cal Overhulser's article/program on the Hardware 
Interrupt Wedge for the VIC 20 and C-64 will teach you 
to set up and utilize a "wedge" into either computer's in- 
terrupt handler and perform various actions in the back- 
ground of your main program. (TUm to page 52.) 



• Ready for fun and games? So are we! Larry Mur- 
dock's Tde Time for the C-64 is similar to those sliding 
number puzzles you used to buy at the dime store -but 
with infinitely more possibilities and infinitely less wear 
on your thumbs. (Turn to page 81.) 

• Don't get the butterflies playing Raid for the C-64, 
by Larry Coats and Noel Nyman. More important: don't 
let the butterflies get w«! They're out to do just that as 
you try to scoop up all the inhabitants of Heartland. (Turn 
to page 60.) 

• It's been four months since you took soldering iron 
and drill in hand to accompany Tom Benford, the original 
hardware hacker, on a computer-carving adventure. This 
month he shows you How to Install a Reset Switch on 
your VIC or 64, permitting you to clear screen and mem- 
ory without interrupting power to the rest of your compu- 
ter. (Turn to page 13.) 

• The thought of drilling into the side of his precious 
C-64 agonized Morton the K to such an extent that he 
decided to contribute a companion article to Tom's, de- 
tailing alternate w^s of installing a reset, or "warm boot," 
capacity. Morton's love for his computer is evident in the 
very title of How Many Ways Can I Reset Thee? Let Me 
Count the \^ys. (Turn to page 16.) 

If you don't know assembly/machine language, and if 
you missed our April issue, we recommend that you bor- 
row a copy and read the first installment of Mark An- 
drews' Commodore Roots. Then read the second install- 
ment, found in this issuerSy the Numbers. There's no 
more painless introduction to assembly language pro- 
gramming to be found anywhere. Included this month 
is a program that will easily convert numbers from deci- 
mal to hexadecimal to binary. (Turn to page 47.) 

And while your brain is in a machine language mode, 
read this month's Rupert Report. Dale takes you on an 
assortment of Assembler Escapades, showing you how 
to use an assembler to create an ML program, use a dis- 
assembler to view that program in memory, and convert 
the ML instructions into the DATA statements of a BASIC 
program. (Tlim to page 55.) 

A passel of programs are likewise included in this 
month's edition of Creating Your Own Games on the VIC 
and 64, in which Orson Scott Card details the logistics 
of Moving Through Color Memory— s^d manipulating 
colors separately from characters in your original game 
programs. (Turn to page 18.) 

Do we envy you readers. As we write these words, 
it'll be several weeks before we can page through a copy 
of the May Ahoy! You can tear into one right now. What 
are you waiting for? —David Allikas 



New Number for Ahoy! BBS (as of April 15); 718-383-8909. (See page 77.) 
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CARTRIDGE COPIER 

In an upcoming issue. Morion 
Kevelson will report on various 
products that let you put your C-64 
programs on cartridges. Among 
these will be the new CBUS cartridge 
backup system from R.J. Brachman 
Associates. 

The system consists of two parts; 
CBUS- 1, which lets you copy the 
contents of any C-64 cartridge onto 
diskette; and the CBUS-2 cartridge 
emulator, a cartridge containing I6K 
RAM which allows you to load the 
previously copied cartridge program 
back into the computer and com- 
pletely emulate the original. 

While makers of cartridge-based 
software are sure to denounce CBUS 
for its inevitable promotion of pira- 
cy, the system does in fact provide 
two important advantages for law- 
abiding users. First, it eliminates the 
need to continuously swap cartridges 
to change programs, saving wear and 
tear on the expansion port. Second, 
it provides a valuable development 
tool for those who want to create car- 
tridge-based software by allowing for 
rapid testing and emulation of car- 
tridge-based programs without the 
need to continuously erase and rcpro- 
gram read-only memory chips 
(PROMs). 

Cost of CBUS 1 is $34.95. $49.95 
for deluxe version with accessory 
programs on disk. CBUS 2 is .$84.95. 
$99.95 including disk. A combina- 
tion package, including all programs 
and hardware, is $1 19.95. Advanced 
u.sers should inquire about the tech- 
nical manual for the system. 

R.J. Brachman Associates, Inc., 
P.O. Box 1077. Havertown. PA 
19083 (phone: 215-622-5495; for or- 
ders I-800-CBUS-C64). 



Alphacom Aero: 130 cps print speed, 2K data buffer, path-seeking logic. 
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ALPHACOM PRINTER 

The $249.95 Alphacom Aero of- 
fers 130 character per second print 
speed. 2K data buffer, and path-seek- 
ing logic. 6X8 characters are print- 
ed with true descenders in a 6 X 9 
dot matrix field. The 9-wire print 
head {using square needles for max- 
imum image quality) prints either 
480 or 960 dots per line in alphanu- 
meric (allowing 96 ASCII charac- 
ters) or bit-image mode. Users may 
create their own character sets, and 
mix type styles (double .strike, en- 
larged, etc.) on the same line. Mod- 
els for both RS232 and Centronics 
interfaces are available. 

Additionally, Alphacom has cut 
the price of the intelligent printer car- 
tridge interfaces that link its Alpha- 
pro 101 daisy wheel printer (see Feb- 
ruary's Scuttlebutt) to various com- 
puters. Price of the particular inter- 
face required by Commodore users 
has dropped from $49.95 to $29.95. 



Alphacom, Inc., 2323 South Bas- 
com Avenue, Campbell, CA 95008 
{phone: 408-559-8000). 

WHEN THE RAIN COMES. . . 

Rainy Day Fwi is the first in Thorn 

EMI's new Computer Clubhouse se- 
ries, designed for children aged 5-9 
with the goal of providing activities 
that entertain while teaching a vari- 
ety of personal and social skills. 

The two-disk set ($39.95) features 
10 C-64 programs: Mask Maker 
(choo.se from 36 different face parts 
to create over 700 different masks 
that can be printed and worn). Paper 
Airplane (10 designs to print, with 
animated forward and backward 
rolls). Pin the Tail on the Donkey 
(tlnd vi.sible and invisible donkeys 
via musical clues), Connect-the-Dots 
(create 40 pictures by connecting 
dots freehand or on the computer). 
Party hivitation Maker (create your 
own or pick from three predefined 
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Keep the tykes out of your hair. 
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designs). Sliding Puzzles (alphabet, 
number, and picture puzzles solved 
by moving squares around a 4 X 4 
grid). Banner Maker (print banners 
up to 40 feet long). Fortune Teller 
(friendly sorcerer answers questions). 
Coloring Book (color onscreen or on 
a printout), and Mouse Maze (help 
Mortimer the Mouse escape from the 
labyrinth). 

Thorn EMI Computer Software, 
3187C Airway Avenue. Costa Mesa, 
CA 92626 (phone: 714-751-3778). 

ED SOFTWARE CATALOG 
AND NEWSLETTER 

DLM's 1985 catalog features de- 
scriptions and sample screens of over 
40 educational programs, many for 
the Commodore 64. 

DLM, One DLM Park, Allen, TX 
75002 (phone: in TX 800-442-47! 1; 
rest of US 800-527-4747). 

Educational Activities has an- 
nounced Software Source, a quarterly 
newsletter to be mailed free to all its 
customers on a quarterly basis. In- 
cluded are questions and answers, 
software and hardware tips, and in- 
formation on the company's latest 
products. 

Educational Activities. Inc.. P.O. 
Box 392. Freeport, NY 11520 
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(phone: in NY. HI. and AK 516- 
223^666; rest of US 800-645-3739). 

GREEN ACRES 

Designed to assist anyone thinking 
of becoming one. Real Estate fnves- 
lor will calculate mortgage payments 
for conventional, adjustable rate and 
balloon payments, mortgage amorti- 
zation of principal and interest, de- 
preciation (ba.sed on the 1981 Eco- 
nomic Recovery Act .schedule), and 
projected cash flow and taxable in- 
come. For the C-64; $35.00. 

Jance Associates, Inc.. P.O. Box 
234, East Texas. PA 18046 (phone: 
215-398-0434). 

MVSIC LESSONS 

Keyboard Crazy consists of four 
games that teach children music fun- 
damentals: Melody Machine (play 
music while learning notes on the 
staff and keyboard). Sneak-a-Peek 
(match notes and note names). Copy 
Cat (reproduce notes and songs), and 
Mouse Maze (move the rodent 
through obstacles by playing the 
proper note). Included is a coloring 
book that works in conjunction with 
the programs. For the 64; $24.95. 

Waveform Corporation, 1912 Bo- 
nita Way, Berkeley, CA 94704 
(phone: 415-841-9866). 

PRINTOUT 

The latest book releases of inter- 
est to Commodore users: 

Commodore 64 Basics: A Self- 
Teaching Guide (SI 5.95) offers a 
comprehensive course in writing and 
programming in BASIC, while Pro- 
gramming Tips for ilw Commodore 
64 ($14.95) teaches the more sophis- 
ticated skills needed to create graph- 
ics, animation, music, and sound ef- 
fects. John Wiley & Sons. Inc.. 605 
Third Avenue, New York, NY 
10158 (phone: 212-850-6000). 

Home Applications and Games fttr 
the Commodore 64 features 31 pro- 
grams ranging from home finance to 
Beoiiulf vs. Grendei S 14.50 from 
Little. Brown and Company, 34 Bea- 
con St., Boston. MA 02106 (phone: 
617-227-0730). 

Keyboard Challenge with Commo- 
dore 64 ($12,95) combines literacy 
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BASIC programming .self-taught. 
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training with specific subjects in 29 
gantes like Geography Invaders. 
Fraction Reaction, and Vocabulaiy 
War. A.ssembly Language Program- 
ming with the Commodore 64 
($14.95) teaches writing, debugging, 
and executing as.scmbly language 
programs. Commodore 64 BASIC for 
Kids ($15.95) provides over 200 ex- 
ercises for elementary to junior high 
school students. All from Brady 
Communications Co.. Inc., Bowie, 
MD 20715 (phone: 301-262-6300). 
Bowker's 1985 Complete Source- 
book of Per.wnal Computing lists 
more than 750 personal computers, 
25(X) peripherals. 1800 u.ser groups. 
545 magazines. 6300 books, and 
3300 reviews. $19.95 from R.R. 
Bowker Company. 205 East 42nd 
St.. New York. NY 10017 (phone: 
212-916-1600). 

TELECOM NEWS 

The Sixth Sense terminal program 
from Microtechnic Solutions can 
make decisions and perform actions 
based on user-programmed param- 
eters (such as time of day and exter- 
nal events), allowing it to do your 
telecommunicating while you're out. 
Other features are a 7(X) line virtual 
screen with bidirectional scrolling, 
.standard screen for use with built-in 
editor, split-screen line input, and si- 
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Put yourself in the pilot's seat of a Piper 1 81 Cherokee Archer for an awe-inspiring flight over realistic seen, 
from New Yorl< to Los Angeles. High speed color-filled 3D graphics wilt give you a beautiful panoramic vi. 
as you practice takeotfs, landings, and aerobatics. Complete documentation will get you airborne quickly | 
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battle ' 
game. Flight Simulator II features include ■ animated color 3D graphics ■ day, dusk, and night flying mode* 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
Instrumentation ■ VOR, ILS, AOF, and DME radio equipped ■ navigation facitltles and course plotting ■ World 
War t Ace aerial battle game ■ complete information manual and flight handbook. 



See your dealer . . . 

Of tor direct orders enclose $49.95 plus $2 00 for shipping and specify UPS 
Of first class mail delivery. American Express. Dintr's Club. MasterCard, and 
Visa accepted. 

Order Line: 800 / 637-4983 
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Floppy disk 
performance for 
your Commodore 
at audio 
cassette prices. 

Entrepo's QUICK DATA 
DRIVE " brings high speed 
mass storage to the Commo- 
dore 64 ' and VIC 20. " De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24 K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and 1 minute for the 
Commodore Disk Drive. 

■ Suggested retail price 
under $85 

■ 20 times faster than audio 
cassette 

■ Fully automatic opera- 
tion — needs no rewinding 

■ Highly reliable 

■ Can be used with a second 
drive or an audio cassette 

■ Comes with file manage- 
ment system and utility 
program 

■ Top selling software avail- 
able on Microwafer " 
media 



♦ entrepo 

ENTREPO, INC. 

1294 Lawrence Station Road 

Sunnyvale, California 94089 

(408)734-3133 

"telex 176337 
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multaneous downloading to screen, 
printer, and disk at 1200 baud. On 
disk for the 64; $89.95 (20% dis- 
count lor registered owners of Simirl 
64 Terminal). 

Microtechnic Solutions, Inc., P.O. 
Box 2940. New Haven, CT 06515 
(phone: 20.V389-8383). 

The Instant Yellow Pages offers 
online business information from a 
database of 6 million listings. Charge 
is SI. 00 per minute and 10c per rec- 
ord printed, plus $15 per month sub- 
scription fee. 

Instant Yellow Page Service, 
American Business Lists. Inc. 5639 
South 86th Circle, P.O. Box 27347, 
Omaha. NE 68127 (phone: 402- 
331-7169). 

Petscan. a free 24-hour database, 
provides information on feeding, 
housing, and health care of animals 
from pooches to parakeets. Phone 
number is 303-223-1297. 

The AdvcK-ate, P.O. Box 8896, Ft. 
Collins. CO 80525. 

CompuServe has replaced their 
Email service with EasyPlex, offer- 
ing a 50-name address bcx)k for each 
user, menu, prompt, and command 
modes, and automatic line 
numbering. 

Additionally. CompuServe has 
made the Academic American Ency- 
clopedia available at a subscription 
rate of $49.95 per year for unlimited 
searches (in addition to the normal 
connect charges). 

Finally, CompuServe has an- 
nounced that beginning in May they 
will spon.sor The Online Computer 
Connection, a five-minute radio pro- 
gram reaching 100 cross-country 
markets and allowing listeners to in- 
teract with the program via their 
computers during regular connect 
times at no additional charge. 

CompuServe, 50(X) Arlington 
Centre Blvd., P.O. Box 202l2,^Co- 
tumbus, OH 43220 (phone: 614- 
457-8600). 

ECHO Systems has announced 
Echo Canada, a Toronto-based 
branch that will spare Canadian us- 
ers the cost of calling the US. A spe- 
cial rate is being offered to the first 
1000 subscribers. 

ECHO Systems, 4739 Alia Road, 




GE's TXP-KM) prints in 16 dot matrix on rolled, fanfold, or cut sheet paper. 
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Marina del Rey. CA 90292 (phone: 
213-823-8415)'. 

BETTER CONNECTION 

The price of The Connection in- 
terface from Tymac (see Printer In- 
teifaduii. March "85 Ahox!) has been 
lowered from Si 19.95 to $99.95. Ifs 
also been enhanced to configure to 
most parallel printers via software, 
and to include a programmable char- 
acter set which can be downloaded 
to create various type styles, as well 
as a universal screen dump for black 
and white and popular color printers. 

Tymac Controls Corporation, 127 
Main Street, Franklin, NJ 07416 
(phone: 201-827-4050). 

GE PERIPHERALS 

General Eiectric"s announcement 
that they will prtxluce peripherals for 
specific home computer systems (in- 
cluding Commodore) puts the com- 
petition among third party manufac- 
turers in a new light. Because GE is 
the first entrant in the Commodore 
market capable of swallowing all the 




GL 3-8200 modem is acomtic/modidar. 
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other third party manufacturers put 
together, they have the wherewithal 
to drive prices down below other 
companies' profit margins. The pric- 
es of the releases described here may 
not appear trendsetting— but wait un- 
til the other giants of the home elec- 
tronics field follow GE's lead into the 
Commodore market. Small, indepen- 
dent manufacturers of quality peri- 
pherals will continue to sell to the 
quality conscious; the me-too manu- 
facturers will cease to be. 

The model 3-8200 modem, oper- 
ating at 300 baud, includes both an 
acoustic coupler for hard-wired 
phones and a direct mode for use 
with modular jacks. Other features 
include automatically switchable an- 
swer/originate UKxies and battery op- 
eration. Vricc: SI 19.95. 

The TXP-lOa) printer operates at 
25 or 50 characters per .second, with 
full graphics capability and variable 
width print mtxles. The $299.95 unit 
hooks up to the C-64 via an $89.95 
interface. 

Why no Commodore-compatible 
di.sk drive? GE is waiting to perfect 
the one they're currently working on 
-which will read data files from all 
home computers. 

General Electric Company, Elec- 
tronics Park, Syracuse. NY 13221 
(phone: 315-456-2446). 

NEW GAME RELEASES 

Despite the witty title variation. 
Electronic Arts' Racing Destruction 
Set is one of the two latest entries in 
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Kennedy Approach; nile the skies. 
READER SERVICE NO. 205 

its Construction Set line, enabling the 
user to customize and combine a host 
of supplied elements into an original 
program. Provided are some of the 
world's most famous tracks (Monaco. 
Indianapolis, etc.), nine types of ve- 
hicles ranging from Lunar Excursion 
Modules to stock cars, four differ- 
ent backgrounds, and variable sound 
effects. 

The track can be changed segment 
by segment, with three widths, sev- 
en elevations, and three surface op- 
tions (ice, dirt, and paving) available. 
Players can lay land mines and oil 
slicks in one another's path, or even 
alter gravity. Vehicles can be 
changed with regard to speed, tire 
type, amount of armor, and design. 
An isolated camera display with split- 
screen .scrolling enables each player 
to view his car and its position on the 
track no matter where his opponent is. 

Mail Order Moiisicrs lets players 
design their own beasties from a cat- 
alog of 12 bixly types. 20 enhance- 
ments (fangs, tentacles, etc.). 15 
weapons, and 6 defenses. Completed 
mon.sters can be sent to demolish one 
another in three different battle sce- 
narios on three skill levels. You can 
save your most revolting creations to 
disk for future customization and 
gameplay. 

Both for the C-64; $35.00 each. 

Electronic Arts, 2755 Campus 
Drive, San Mateo, CA 94403 
(phone: 415-571-7171). 

By putting the entire track on- 
screen. Gamestar's On-Track Racing 
eliminates the need to pause or re- 
start when one player gets too far 
ahead of the other (as in scrolling 
race games) or sacrifice drama by 
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splitting the screen. The competition 
takes place on 10 famous raceways. 
For the 64 and 128; $29.95. 

Gamestar, Inc.. 1302 State Street, 
Santa Barbara. CA 93101 (phone: 
805-963-3487). 

The winning entry in Progressive 
Peripherals" contest challenging us- 
ers to build levels from the Wizard 
con.struction set for a second game, 
the Wizard KKpansion Set is a more 
demanding version than the original 
(required in order lo play the Expan- 
sion Set). For the C-64; $29.95. 

Progressive Peripherals & Soft- 
ware, 2186 South Holly. Suite #2, 
Denver, CO 80222 (phone: 303- 
759-5713). 

Ousted air traffic controllers can 
wax nostalgic playing Kennedy Ap- 
proach, simulating the control tow- 
er situation at various American air- 
ports. Up to twenty aircraft can be 
radioing you at one time (utilizing 
speech synthesis); you mu.st guide 
them all to a safe landing. For the 
C-64: $34.95. 

MicroProse Software. 120 Lake- 
front Drive. Hunt Valley, MD 21030 
(phone: 301-667-1151). 

Two games previously announced 
by Tymac, now available for the first 
time, at $39.95 each: 

As Gamlalfthe Sorcerer, you use 
power bolts to defend your castle 
from the lizardmen who seek to steal 



your treasure and drag your appren- 
tices off to Lizard Lair. On disk or 
cassette for the 64, on cartridge or 
cassette for the VIC. 

Flyer Fox utilizes 3D graphics and 
software-generated speech to put you 
in the ciKkpit of a jet fighter, defend- 
ing commercial airliners from mur- 
derous Migs, On disk or cassette for 
the C-64. 

Tymac Controls Corporation, 
Franklin, NJ 07416 (phone: 201- 
827-4050). 

4K RAM ROBOT 

Sure to be a riot at the school sci- 
ence fair. The Memocon Crawler is 
a SVi" diameter robot that can be 
nraneuvered with a seven-function 
controller or a C-64 (via a special in- 
terface). The 4K RAM automaton 
can go forward, right, or left, pause, 
sound a buzzer, light an LED. or re- 
peat a program continuously. Robot 
and controller is $74.95; C-64 inter- 
face (assembly required) is $39.95. 

OWI Inc.. 1160 Mahalo Place, 
Compton, CA 90220 (phone: 213- 
638-47.32). 

T~64 

A column as densely packed with 
hard news as Sciiiilehun needs some 
diversion. It's provided this month by 
Diversions Inc.. makers of the Un- 
derware Ribbon, which allows vou 




Two printed circuit boards contain all electronics of Memocon Crawler. 
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VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package You can distribute tree RUN- 
TIME version without paying royalties' 
ISBN# 0-916439 26-7 $59.95 

BASIC COMPILER 64 - compiles the 

complete BASIC language into eittier fast 6510 

machine language and/or compact speedcode Get 

youf programs inio high gear and protect them by 

compiling, 

ISBN# 0-916439-17-8 $39.95 

MASTER-64 - professional development 
package tor serious applications Indexed file 
system, full screen management, programmer's 
aid, BASIC extensions. 100 commands 
ISON# 0-916439-21-6 $39.95 

PASCAL-64 - full Pascal with extensions for 
graphics, sprites, file managemeni, more. Compiles 
to 6510 machine code and can link to 
Assembler/f^flonitor routines 
ISBN# 0-916439-10-0 S39.95 



ADA TRAINING COURSE • teaches 
you the language of the future Comprehensive 
subset of the language, editor, syntax 
ctiecker/compiler, assembler, disassembler, 120+ 
page guide. 
ISBN# 0-916439-15-1 S59.95 

FORTH-64 ■ loaded with hires graphics, com- 
plete synthesizer control, full screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 S39.95 

C LANGUAGE COMPILER - a full C 
language compiler Conforms to the Kernighan & 
Ritchie standard, but without bit fields. Package in- 
cludes editor, compiler and linker 
ISBNH^ 0-916439-28-3 S79.95 

ASSEMBLER MONITOR-64 - a 

macro assembler and extended momtor package 
Assembler supports floating point constants. 
IWonitor supports bank switching, quick trace, single 
step, more 
l$BN# 0-916439-11-9 $39.95 



XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 
I$BN# 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE • WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today for the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard. 
VISA and American Express accepted. 
Michigan residents ■ 
met 4% sales tax. ■ 
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FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 
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P.O. Box 7211 Grand Rapids, Ml 49510 - Telex 709-101 - Phone 616/241-5510 
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to produce T-shirt iron-ons on plain 
computer paper. Software to draw 
and print the screen image is not in- 
cluded. Available for the Epson, 
Okidata, and Gemini dot matrix 
printers, each $19.95 ribbon will 
yield a minimum of 20 transfers. If 
you'd like to produce full color iron- 
ons, a set of five ColorPens for fill- 
ing in the iron-on images is also 
available for $19.95. 

Diversions Inc., 1550 Winding 
Way, Belmont. CA 94002 (phone: 
415-591-0660). 

DO-ALL DISK DRIVE 

A $399 dual disk drive soon to be 
released by World Disk Drive will 
include an IEEE bus, serial and par- 
allel printer interface ports, and a 
disk with printer dumps that can re- 
produce all Commodore characters. 

Unlike the MSD SD-2, whose se- 
cond drive exists primarily for mak- 
ing backups, these twin drives will 
be independent of each other and 
able to be addressed separately. The 
World drive will also boot all Elec- 




Reset Master: a cinch to install. 
READER SERVICE NO. 232 

tronic Arts games, which the MSD 
does not. 

An additional $29 will buy a 
fast-loading cartridge with copy 
routines, BASIC 4.0, and a DOS 
wedge. 

World Disk Drive, 23501 Ridge 
Route Drive, Bldg. D, Laguna 
Hills, CA 92653 (phone: 
714-855-1761). 

OFF THE HOOK 

A postscript to last month's Ship 
to Shore, wherein Cheryl Peterson 
reported on the plight of Tom Tcim- 
pidis. Los Angeles-based SYSOP 



facing persecution for telephone 
fraud over the appearance of an 
AT&T credit card number on his 
BBS: the city attorney's office has 
dropped the case due to lack of suf- 
ficient evidence to prove that Mr. 
Tcimpidis knew the number had 
been posted. 

It was stressed that the decision to 
drop the case did not reflect any un- 
willingness to prosecute future 
SYSOPs whose boards post illegal 
messages. 

RESET SWITCH 

If you don't care to try any of the 
methods suggested in this issue by 
Tom Benford and Morton Kevelson 
to Imtall a Reset Switch on your VIC 
or 64 (see page i3), you can take 
the easy way out and purchase 
Master Software's new Reset 
Master. 

The switch, which plugs into any 
serial port on your system, will reset 
your C-64 or VIC 20 without shut- 
ting off the power, and restore con- 
Cotuimied on page 83 



Make Your Home Secure and Energywise 

. . . with Genesis Home Control Products 

At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your tiome safer and more energy efficient while increasing your personal convenience. 

Tfie Genesis VIController allows you to control up to 256 lights and appliances throughout your home using standard 6SR 
receiver modules. With the included software, you can create daify and weekly control schedules. 

vour system can be expanded by adding Genesis' COMsense input device. Super 

Schedule Plus software, and available sensors. Commands can fST -.yl 

ttien be Issued in response to on/oft inputs such as the . -rv:;*-.^-::' .■■: ■^:>:^>.:^v^ 

opening of a door or analog inputs such as a Change in ■ ■■-.-],:'' ;:.: ,a-#;-'.v v'"'^^^^'- ■-■ il ■'" ' ^^^^^^-^^^^^^'^ 

l)gh! level. By adding COMclock. a crystal •.■.:■:■■■■ ' _ 

controlled clxk/calendar. your system will * 

have an accurate, battery 

backed-up time base. .^s^^ff&^Wff^'^ ■ ■..,.... 

coMciock's Autoboot Roi^ .,,:^:^^.'JS;;-^"";'v-".. ■■"■'■ ^'"" "'"''■'-' 
acts as a failsafe restart for 
the system in the event of 
a power failure. 




Sold separately the VIController, 

COI\/lsense and COH/ldock 

sell for $69.95 each and 

the Super Schedule Plus software sells for $19.95. All four products are available together in our HOME CONTROL 

•PACKAGE for only $199.95. 

Call 215-861-0850 to order direct or contact your local dealer. 



Genesis Computer Corp. • P.O. Box 152 • Heflertown, PA 18055 
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hey say that people gen- 
erally have 20-20 hind- 
sight, and this is true even 
of the design team at 
Commodore. The most faithful sup- 
porters of the Commodore 64 must 
admit that there are a few areas in 
which their computer is lacking. One 
example is the absence of a reset, or 
"warm boot," switch. On the Plus/4 
and C-16 computers. Commodore 
provides this switch as standard 
equipment, having learned a thing or 
two from the C-64 and VIC. What 
I'm presenting here is an inexpensive, 
simple way to add on one of these 
handy gizmos to your present Com- 
modore computer. Since we'll be 
hooking it up to the user port, the 
same instructions and connections 
apply to either the VIC 20 or C-64, 
which have identical user ports. 

What does a reset switch do? It 
performs almost the same way the 
power (on-off) switch of your com- 
puter does, with a couple of major 
benefits. One of these is clearing the 
.screen and memory while not inter- 
rupting power to the rest of the com- 
puter; it allows you to reinitialize the 
system without having to turn the 
C-64 off and then back on again. 
There are many, many uses for such 
a switch, among which are restart- 
ing a game or utility cartridge, or 
more practical applications such as 
regaining control of your computer 
without having to mm it off and then 
on again. The possible applications 
of a reset switch for specific pro- 
grams (both commercial and of your 
own device) are numerous; in fact, 
there are literally thousands of uses 
for this "warm start" (also called 
"warm boot") capability, and your 
imagination is the only limit on what 
you'll use it for. 




While this is a perfectly safe and 
simple modification, it will void your 
warranty, if still in effect. Also note 
that neither I nor Ahoy! can assume 
any responsibility for damage to your 
computer by performing this modi- 
fication on it. If you have any reser- 
vations about your soldering sapi- 
ence, it may be a good idea for you 
to give this article and your compu- 
ter to a friend or technician who can 
complete the project for you. 

Construction is fairly simple, with 
only a basic knowledge of soldering 
techniques required. The bill of ma- 
terials is equally minor, and the 
whole project should take well under 
one half hour to complete. Let me 
mention first that the switch we'll be 
using is a standard Radio Shack item 
that comes five to a package. You'll 
only need one switch for this project, 
so you may want to give the others 
to friends or members of your user's 
group. Or, you may want to keep the 
extras for possible use on future pro- 
jects we'll be covering: the choice is 
yours. Now, let's get our shopping 
and tool lists together! 

Parts List (Figure I): 

1 package (5) Miniature Push But- 
ton Switches -Momentary SPST 
Contacts, Normally Open (Radio 
Shack #275- 1547)- $2,49 

Approximately 3 feet light single 
conductor wire (30-gauge AWG 
wire-wrap wire is ideal) — $.50 

Tools Needed (Figure 1): 

Medium-heat (30-50 watt) solder- 
ing iron 

Rosin-core electronics solder 

Wire strippers/pliers 

Phillips screwdriver 

Electric drill with %" bit 

Towel 
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By Tom Benford 
Photos by Liz Benford 




Figure 



1. Tools and parts needed. 8. Removing 3 
case screws. 3. Disconnected wire harnes- 
ses (keyboard and LED). 4. Lifting copper 
foil tape from shield. 
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Fi3ure 5 




Figure 6 




Figure 8 



5. Drilling hole for switch in top cover of 
C-64. 6. Tinning the wire ends. 7. Solder- 
ing wires to the user port— pins ttl (ground) 
and H3 (reset) are the ones we're using. Sol- 
der as close to the inside of the circuit board 
as possible, 8. Soldering wire ends to switch 
terminals. 

CONSTRUCTION 

Find a clean, well-lit area to work 
on, spread out the towel, and invert 
your C-64 on it (the towel will pre- 
vent you from marring or scratching 
the computer). Make sure that every- 
thing is disconnected from the C-64: 



power, serial, monitor, cartridgi, 
and user ports should all be empty. 
Remove the three Phillips-head 
screws that join the two case halves 
together, and put these screws some- 
where safe for the time being (fig- 
ure 2). Turn the computer right-side 
up and gently separate the two 
halves. You'll notice that there are 
wires connecting the top to the bot- 
tom half. These are the LED indica- 
tor at the lower right of the circuit 
board and the keyboard harness at the 
left side; both of these wires pack- 
ages use slide-on connectors. Pull 
gently on the connectors themselves 
to remove them from the circuit 
board (figure 3). You should now be 
able to fully remove the top half of 
the computer; do this and set it aside 
for the moment. 

Late model C-64s have a paper/ 
foil shield to cut down on TV and 
radio interference. If yours has this 
shield, lift the copper foil tape from 
it and peel it back (figure 4). Once 
this is done, you'll be able to fold the 
interference shield forward, thus ex- 
posing the heart and soul of the com- 
puter -the actual circuit board it- 
self. 

To the upper left you'll see the con- 
tacts of the user port -we'll be mak- 
ing our solder connections to contacts 
#1 and #3 (see diagram #1 . courtesy 
of the C-64 owner's manual). 

Plug in your soldering iron to get 
it up to working temperature. While 
the iron is heating up, we can pro- 
ceed to drilling the hole for the 
switch. 

Placement of the switch is largely 
a matter of choice, but I recommend 
putting it right next to the jrower in- 
dicator LED; it gives a more "pro- 
fessional" appearance, as well as 
keeping it out of harm's way. Using 
a Vs" bit, drill a hole through the top 
of the computer keyboard about %" 
away from the LED (figure 5). Clean 
any remnants of drilled plastic from 
both the outside and Inside areas of 
the keyboard. Remove the nut from 
the switch and give it a test-fit lo 
make sure it fits in the hole easily 
(you may have to ream the hole 
slightly for a comfortable fit). 




Figure 9 




Figure 10 




Figure 12 



9. Completed connections to user port pins 
If I & it3. 10. Completed connections to 
switch, with wiring tucked under shield. 11. 
Just prior to closing: keyboard & LED har- 
nesses back in place, switch mounted on 
top cover, wiring tucked away. 12. Com- 
pleted installation. Looks factory-perfect.' 

Your soldering iron should be up 
to working temperature now. Cut 
your hookup wire into two 16" 
lengths, and strip about %" of insu- 
lation from both ends of both piec- 
es. When this is done, "tin" all four 
wire ends with a small amount of sol- 
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HOW TO AVOID 
BECOMING A 
DINOSAUR. 

If dinosaurs had kept up with their rapidly changing 
world, you might have a pet bronto today. (It's 
probably just as well they didn't, since they 
wouldn't fit into a small imported car anyway) 

The point is, if you don't want to get left 
behind today you need a computer with 
the latest software and accessories. 
No question about it. 

The only question is, "where 
do I buy it?" 

Ah! We thought you'd never 
ask. Computer Warehouse, of 
course. Nice guys, great 
prices. Give us a call today 
We'll get your shipment 
out bronto - 
er, pronto. 




MONITORS 

Commo<lore1702 
Gorilla (green) 
Gorilla (amber) 



$209.95 
S 79.00 
$ 89.00 



PRINTERS 

Commodore 1526/802 S2D9.00 

Commodore 803 $ 1 69.00 

Panasonic 1090 $239.00 

Gemini 10X $249.00 

Gemini 15X $349.00 
Power Type (Daisy 

Wheel) $369.00 

Radix 10 $499.00 
ELITE 5 CD (Daisy Wheel) 

Direct connect for 

Commodore $299.00 

AXIOM AT 550 $259.00 

Star SGIO $269.00 

SlarSDIO $399.00 

SlarSRIO $499.00 
Okidata82,83,84,92,93 CALL 
Okimate 10 Color 

Printer $199.00 

Panasonic 1091 $299.00 



DISK DRIVES 

Commodore 1541 
Rana 1000 
Indus GT 
MSD Single Drive 
MSD Dual Drive 



$199,00 
$199.00 
$299.00 
$299.00 
$499.00 



ACCESSORIES 

We carry a full line o( covers, 
ribbons, storage cases, surge 
suppressors and cables, 



MODEMS 

Westridge Automodem $69.95 

MPP 10§4 S79.95 

Total Telecommunication $69.95 
Modem 300 by 

Commodore $89.95 

PRINTER INTERFACES 

Cardco B $39.95 

Cardco G+ $69.95 

TYMAC Connection $79.95 

TURBO GT $69.95 

AXIOM interface $79.95 

SOFTWARE 

Flight Simulator II $36.95 

Super Base 64 $59.95 

Paper Clip (w/spell) $79.95 

Multiplan by Microsoft $59.95 

Word Pro 3 Plus $39.95 

Koala Touch Tablet $69.95 

Tax Advantage $69.95 

Write Now (Cardco) $39.95 
Mastertronic Disk Game 

(C64) $ 7.99 

DISKETTES* 

Computer Warehouse 

ss/dd $14.95 

Eleptiant ss/sd $13.95 

Elephant ss/dd SI 6.95 

Maxell MD1 $18.95 

Maxell MD2D $24.95 

SKC ss/sd $13.95 

SKC ss/dd $16.95 
• Prices per box of 10 



We carry a full line ol Commodore Hardware and Sollware 

COMPUTER 
WAREHOUSE 

(in FL) 305-274-3680 ; 1-800-372-0214 
7222 S.W. 117th Avenue, Miami, FL 33183 

AOd 3% for sticpping arwl fiandling ctiarges. (S3 mini(num| Ad prices reflect 3% casli 
discouni Credit card orders sfiould add 3°i- Prices sub|ecl to ctiange wilhou I nolice. 
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der. This is done by melting solder 
onto the wire ends; not too much, 
though -just enough to coat the wire 
ends with solder (figure 6). 

Refer again to the diagram of the 
user port. With the circuit board fac- 
ing you, the #1 contact is the one on 
the extreme right, and ff3> is the third 
one from the right. Solder one end 
of each wire to each of these con- 
tacts, but make sure that you solder 
them as close to the circuit board as 
possible. The reason for this is so that 
the solder/wire won't interfere with 
the contacts of the port when using 
a modem or other peripheral. Since 
you've tinned the wire ends, only a 
small amount of heat should be nec- 
essary to complete the connections 
(figure 7). 

When the.se connections are com- 
pleted, take the remaining two wire 
ends and solder each of them to op- 
posite terminals on the switch (fig- 
ure 8) -the order doesn't matter on 
the.se. The completed connections 
should look like those in figures 9 
and 10. 
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64 or VIC user port, plus descriptions 

of pinouts for input/oulput devices (see 

C-64 User's Guide, p. 142). 



Assuming everything's gone 
smoothly so far, you should now be 
ready for reassembly. Insert the 
switch into the hole in the top cov- 
er, secure it with the nut, and tight- 
en it up. You won't need the wash- 
er, .so discard it now. 

Place the top half over the bottom 
half, fold the interference shield back 
to cover the board, reaffix the cop- 
per foil tape to the shield, and plug 
in the two hainess connectors. These 
connectors arc "keyed" so they'll only 
go on the right way. Don't force them 
onl When the connectors are posi- 
tioned over the pins correctly, they 
should slide right on with very little 
effort (figure 1 1). When you've got 
Ihem in place, close the two halves 
of the computer. 

Now invert the computer, replace 
the three screws, and tighten them 
to finish the job. That's it! 

The finished job should look like 
figure 12. The .switch looks like it 
grew there, doesn't it? Plug the pow- 
er cable back in, as well as the other 
cables, and you're ready to roll, D 
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've always been reluctant to 
perform surgery where it 
shows on a finished commer- 

cial product. This probably 

stems from an initial conservatism 
against violating the sanctity of the 
manufacturer's warranty, or perhaps 
a misguided urge to preserve the re- 
sale value for as long as possible. 
Whatever the reason, I surmise that 
many users share diis reluctance with 
me. It thus seems fitting to present 
a number of ways by which you can 
add a reset button to the Commtxlore 
64 or the VIC 20 without opening the 
computer. 

If you carefully examine the pin- 
id AHOYl 



By Morton Kevelson 

out drawings on pages 142 and 143 
of the manual supplied with the 
Comniodore 64 (pages 150 to 152 
for the VIC 20) you will notice that 
the reset line is available at the user 
port, the serial port, and the cartridge 
port. In fact, the corresponding pins 
of each of these ports are electrical- 
ly identical due to a direct connec- 
tion inside the computer. A reset 
switch may be connected between 
ground and the proper pin at any one 
of these ports. 

THE USER PORT 

In the user port, as we have 
pointed out, the reset line is on pin 



three. If you simply connect a push- 
button switch between this and 
ground on pin one the job will be 
complete. Figure I illustrates how to 
use a 24 pin edge card connector 
with the pins on ,156 inch centers. 
Properly done, the pin spacing allows 
the switch to be self mounting. To- 
tal cost is about $2.50 for switch and 
connector. You may want to cover 
the exposed pins with some insulat- 
ing tape to prevent electrical shorts 
due to contact with foreign objects. 
The proper pins can be easily loca- 
ted by simply orienting the connec- 
tor as shown in the manual. The pin 
identification should be molded in the 



connector housing, making the job 
even simpler. Remember, all of the 
pinouts in the Commodore nianuals 
are as viewed from looking at the 
back of the computer. 

THE SERIAL PORT 

The serial port has the reset line 
on pin six vk/ith ground on pin two. 
If you do not have a disk drive or 
printer you can actually mount a 
switch on a six pin DIN connector 
and install it at the serial port. Pub- 
lic Domain, Inc. (5025 S. Rangeline 
Rd.. West Milton. OH 45383- 
phone 513-698-5638) offers a com- 
pleted assembly for just S5. If you 
have a disk drive, the second port on 
the 1541 can be used just as easily. 
If you also have a printer, there is 
still a way to add a reset switch to 
this fwrt, although the method is 
somewhat crude. It will require some 
minor surgery of the disk drive con- 
necting cable. Carefully slit the in- 
sulating cover and remove .some of 
the copper braid which shields the in- 
ner conducters. In the case of the ca- 
bles supplied by Commodore, the 
wires you want are colored purple 
and blue. Other manufacturer's ca- 
bles may have different color code 
schemes. Simply connect the termin- 
als of the switch directly across the 
wires. Be careful to maintain contin- 
uity of the existing circuit. Figure 2 
shows a partially completed job. To 
finish things off, just wrap the ex- 
posed connections with insulating 
tape. 

THE EXPANSION PORT 

The cartridge port offers a unique 
opportunity for adding a reset but- 
ton. Just find a suitable cartridge, 
which you intend to leave in place 
all the time, and install the switch. 
The Epyx Fast Load cartridge (re- 
viewed in this issue) is a particular- 
ly good choice. If you do a soft re- 
set by entering SYS 64738, the Fast 
Load cartridge is disconnected. If 
you hit the reset button, the cartridge 
is reconnected. Figures 3 and 4 show 
the installation. Of course, you will 
have to carve up the cartridge some- 
what, but cartridges are much cheap- 



er than computers. Some cartridges 
(such as Fa.st Load) are held togeth- 
er by a screw hidden under the la- 
bel. If you feel around the top it will 
be easy to locate. 

PUSHING THE BUTTON 

Interestingly enough, when you 
push the button everything grinds to 
a halt. It is when you let go that 
things take off. All the major chips 
in the C-64, with the exception of the 
VIC-II chip, are reinitialized. When 
the button is released, the micropro- 
cessor starts executing the code 
whose starting address is stored in 
65532 and 63533 ($FFFC and 
SFFFD). (For a more detailed dis- 
cussion refer to the Expose of the VIC 
& 64 Operating System in the Jan- 
uary '85 Ahoy!) Just remember that 
all serial bus peripherals will also be 
reset by the reset button. It would be 
a good idea to remove any disks from 
the drives before initiating a hard- 
ware reset. 

ON SEMANTICS 

The term "Warm Boot" generally 
refers to a partial reset of a system 
without turning the machine off and 
then on. The term "Cold Boot" re- 
fers to the startup procedure the com- 
puter follows immediately after pow- 
er on. The reset button discussed in 
these articles actually has the effect 
of making the computer go through 
the initial power on sequence. Thus, 
some may argue that the switch be 
called a "Cold Boot" switch, and the 
term "Warm Boot" reserved for the 
SYS mentioned above. Others go so 
far as to argue that even the SYS 
command should be referred to as a 
"Cold Boot." We prefer to avoid the 
whole issue by simply referring to 
the reset switch as a "Hardware Re- 
set" and the SYS command as a 
"Software Reset." leaving all temper- 
ature considerations to the budding 
meteorologists in our audience. 

Alert readers may have noticed 
that the word reset in the Commo- 
dore manuals is printed with a line 
above it. This is simply the logical 
negation symbol. Purists may read 
this as "not reset." It means that the 
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Figure 3 




Figure * 



1. User port reset: note position of contacts 
I &3at left end of top row. 2. Reset switch 
installed on serial port cable (top) & user 
port connector (bottom). 3. Internal 
connection of switch in Fast Load 
cartridge. 4. Completed assembly. 

reset action takes place when this line 
is a logical 0, or in our case by pull- 
ing the five volts normally on this 
line to ground or volts. 

As with all construction projects 
presented in Ahoy!, the user assumes 
all responsibility for any catastro- 
phies which may result from self-in- 
flicted tinkering. D 
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-he VIC and 64 
allow you to 
manipulate 
colors separately 
from characters 
-which can do 
a lot more than 
I just brighten 
^ your game. 



CNTI-II=VK:/VNID64 



ir 




^^ ^^ ecently i was at a party where a lot of 
^ y M ^science fiction and fantasy writers and 
^^^__^~'^^ & ^ readers were gathered. I have no shame 
P5^~^ M \ - 1 look at such events as therapy for my 
\mr^ W m ^%^ 'in<l J "li'k them for everything 
^H^y^ v^ they're worth. 

I was told that one of the guests was Walter Meyers, 
a professor at North Carolina State who happens to be 
on the panel that gives out the Campbell Memorial 
Award for the best science Tiction novel of the year. 

Now, we writers, sophisticated and worldly as we are, 
all pretend that awards mean nothing to us. But all the 
time we're saying that, we're swallowing hard to keep 
from drooling at the thought of getting one. 

So I was prepared to discuss, modestly, the signifi- 
cance of my contribution to science fiction and fantasy 
literature. 

Instead, he handed me a disk. Tve been reading your 
colunin in AhoylT he said. "I wondered if you'd look 
at these games," He mentioned that he had created some 
really dazzling sound and graphics. And when I got the 
disk home, darned if he hadn't. 

The disk contained several games, but they were all 
linked with a menu program. The menu began with some 
messages in nice large characters. Then we were given 
a musical interlude in Digit's Music Hall. A curtain op- 
ened to reveal a beautiful pipe organ. A penguin walked 
on, .sat up to the organ, and played some Bach, The pen- 
guin's fingers moved properly on the keyboard: the mu- 
sic was flawless. The curtain went down, and then came 
back up to reveal the message: "And now, the menu." 

Whereupon the letter M walked out to the middle of 
the screen and beckoned to the other letters. E slithered 
on, N was a bit more dainty, and U positively wafted. 
Then, underneath it, five games were offered: 

A find-the-letter-on-the-key board game, in which nest- 
ling birds squawk unnl their letter is struck. 

An abstract GO-like board gan\e. in which players take 
turns moving tiles and flipping colors. 

A duel with swords, in which you select the moves 
to make against opponents with varying levels of skill. 

A memory building {or, in my case, ego-destroying) 
game in which you try to remember how many Moes, 
Larrys, and Curlys you saw while a single match was lit. 

And the piece de resistance, a truly magnificent flags- 
of-the-nations game. 

And my job was to play them like an idiot. 

GET HELP FROM AN IDIOT SAVANT 

You see, once you've programmed your game and ifs 
li^ doing everything you want it to, it's time to have it tested 

toy Orson ©oo-t± Oard 
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What you get if ^rou cross 
a Commodore 64 with a Fferrari. 



\ you get the incredible 
IJ2 Indus GT'" disk drive. 

You get brains. You get beauty. 

But, that's not all you get. 

You get a disk drive that can 
handle 100% ot Commodore's 
software. Up to 400 "/.i faster 

You get the disk drive with the 
best service record around. With 
a one year warranty on parts and 
labor to prove it. 



And, you get the only disk drive 
that comes with tree software. 
Word processing. Spreadsheet, 
Database manager. Plus, a carry- 
ing case that doubles as an 80 
disk storage file. 

Most of all, you get luxury 
From the sleek lines of its sound- 
proofed chassis to the respon- 
sive AccuTouch™ controls at the 
Indus CommandPostl" From the 



LED display that keeps you in 
control of your Commodore to 
the air-piston operated dust 
cover that protects your disks 
and drive. 

So, you know what you really 
getifyoucrossa 
Commodore 64 
with a Ferrari? 
You get the 
best. 




INDUS 



t Indus SY<.lpms, SJOJ Deetinn Avenup. Chatswofth, CA 91311 (B18j 882-9600. Thf Indus CT is j product ot Indus Systems, Commodore is a 
reuitilereci tradfrnark of Commodore Business Machines, Inc. Ferrari is a registered trademark ot ferrari North America, Inc. 
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by somebody else. Somebody who doesn't know any- 
thing about the game. Preferably, somebody who will 
quickly do everything that you didn't think anybody 
would be dumb enough to try. 

We're talking about genuine creative stupidity. 

For instance, in the middle of Got a Match, I decided 
I had better go back to the preschool game, which was 
better suited to my mental abilities. I tried to quit pre- 
maturely. Apparently Walter Meyers hadn't counted on 
anybody giving up in frustration. There was no orderly 
exit-al leasit, when 1 pressed Q the game didn't Quit, 
and none of the function keys stopped it, either. Nor 
did the RESTORE key -but it did wreck the display. 

What kind of idiot would press the RESTORE key 
during the game? 

Now, Walter Meyers didn't make a mistake, / did. 
But if 1 had plunked down forty bucks for the game, 
1 wouldn't be rational about something like this. 1 
wouldn't say, "Card, you idiot, why did you press the 
RESTORE key?" I'd say, "What kind of game is this 
that the only way you can quit early i.s to turn off the 
machine?" 

And I'm not only stupid. I'm lazy. I didn't want to have 
to find the numbers 1 through 5 on the keyboard to 
choose my guess for the nation who.se Hag was displayeil. 
I wanted to be able to move a cursor up and down and 
have the computer highlight the choice I'd made. Then 
I'd never have to look down at the keyboard at all. 

There were times I wanted to do things the game didn't 
allow. Times I didn't want to do things the game re- 
quired. I am reporting all those things to Walter Meyers. 

Will he act on them all? Maybe. And maybe he'll kwk 
at me with pity and wonder how a guy this dumb ever 
got to write a column for a national computer magazine. 

Hear me, O game designers. Treasure your stupid 
friends. If you have no stupid friends, find some. Be- 
cause the idiots who do everything wrong when they're 
testing your game are the biggest help you'll ever get. 

By the time you're through making it so they can do 
all the things they wanted to— and can't do any of the 
things they wish they hadn't— you'll have a game that 
is perfectly polished. 

"Vou could never make that many mistakes on your 
own. 'Vou just can't do it without the help of us dolls. 

SELECTING OPTIONS 

Most games u.sc Option Selection at some time dur- 
ing the game. It can be as simple as the One- Play cr/Two- 
Player option at the beginning, which is never used again 
until the game is over; or it can be the heart of the game. 

For instance. Walter Meyers' game Fla^s depended 
entirely on option selection. Each time a new flag was 
displayed, the names of five nations appeared under the 
flag, numbered I to 5. To select one, you just press a 
number. 

Things got more complex with Fimhing Swords. Here, 
there were many options, like Thrust. Parry. Rest, Feint, 
and so forth. Sometimes a modified set of options ap- 



peared, adding Lunge and leaving off some of the others. 
Now to choose an option you press the appropriate key: 
L for Lunge, T for Thrust, and so on. 

The same thing cropped up in an early version of a 
trivia game sent to me by Jan Iverson. Possible answers 
were numbered. 

Now, this single-keypress method of option selection 
is a vast improvement over using INPUT stateinents to 
read whole words. For instance, an early game for the 
Atari was Sktws and Capitols. Instead of t)ffering a 
menu, you had to type in the name of the state. Now. 
for a touch typist who is a fanatic about correct spell- 
ing—like me— that pt>sed no problem. But when my then- 
four-year-old son played the game, he hated typing in 
all those letters. 

What if he spelled Tennessee with only one N? He 
knew the name of the state — he just didn't know how 
to spell it. So the game wasn't really a geography teach- 
er-it was a spelling exam. 

Worse yet, the programmer tried to "simplify" things 
by using only the first five letters of the state's or Cap- 
itol's name in the recognition loop. This meant that the 
word Washiplvxzyut was as "correct" as Washington. 
It also meant that if you wrote North Carolina when the 
state was North Dakota, the program thought you were 
correct. Great educational program! 

So the multiple choice technique, where you are shown 
several options and allowed to choose by pressing a sin- 
gle key, is a great improvement over requiring the play- 
er to type whole words. 

But it still has drawbacks. In numbered menus, where 
you choose option 4 by pressing the 4 key, there is no 
necessary relationship between the answer and what you 
press. If the answer you want is number 4. you have 
to look on the screen to see what number it is, then look 
down to the keyboard to find the number, and then look 
back to the screen to see how you did. And don't kid 
yourself that touch typists don't have to do this. There 
are an awful lot of us hundred-word-pcr-minute typists 
who still stop and look for numbers and symbols on the 
top row. That's terra incognita up there. 

The first-letter option solves part of the problem -T 
for Thrust means you only have to think of the word 
Thrust and you know what to press. But it makes things 
even worse for hunt-and-peck typists. We touch typists 
know without thinking where T is on the keyboard - 
but a lot of your players won't know. 

There is an easier way. 

Just put your menu of choices on the screen. Not num- 
bered, but each in its own position on the screen. All 
the options are printed in letters of the same color— ex- 
cept one. That one is in a much brighter color. It is the 
current selection. 

Then you merely move the joy.stick up or down. The 
former current selection returns to the regular color, and 
the one just above or below it is changed to the high- 
light color. 

You can keep moving from choice to choice, until you 
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reach ihe one you want. Then you press the button. You 
have made your choice. (Il works the same way with 
the keyboard. You use the f5 and t7 keys to move up 
and down, and the space bar to select.) 

Why is this better? Because you want to have as few 
barriers as possible between the data and the decision 
and between the decision and the action. In this case, 
players don't have to figure out which number or letter 
represents their choice. Their choice is highlighted on 
the .screen. And to change from one choice to another. 
they don't have to find a particular key on the keyboard. 
They only have to remember up, down, and action. 

These games were goixl games even with the relatively 
clumsy control system. But that's what you do when your 
game is finally working-you fine tunc it. change it here, 
change it there, to make it simpler to play, and yet more 
fun, more fascinating, more satisfying. 

HIGHLIGHTING WITH PRINT 

Now that I've described how highlighting with a menu 
of options is the best way to handle multiple choice 
games, it's only fair thai I show you how it's done. 

The .screen di.splay i.s simple. You just put the choices 
in a column. Let's say we're playing "Ambassador," and 
you have to negotiate with the minister of state of Loth- 
aringia. Your king has instructed you to engage Lotha- 
ringia in an alliance against powerful Bavaria. In the 
game, you arc given bits of information to help your 
preparation-tho.se appear at the bottom of the .screen. 
Your instructions from the king appear at the top of the 
screen. And in the middle are your options: 

Give gifts 

Make threats 

Offer concessions 

Maneuver 

Stall 

Leave 
Each choice leads to a sub- menu, which appears when 
you have made your choice. For instance, if you choose 
to Offer Concessions, the sub-menu lets you choose 
which concession to make: 

Trivial concessions 

Lower tariffs 

Free trade 

Loans 

Economic aid 

Passive military aid 

Active defensive aid 

Active offensive aid 
Once you have selected from the sub-menu, the oppo- 
nent (or computer) responds, and you prepare your next 
move. After a certain amount of time, the computer judg- 
es how well you accomplished your objective, and the 
next round begins. 

There are several ways to program the highlighting 
of options. You could keep every option in a string ar- 
ray, and PRINT the highlighted option each time in a 
different color. For instance, let's say that the six ele- 
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ments in the initial menu are held in the array 0?%(n). 
There arc two colors. CIS and C2S. CIS is white, and 
C2$ is light blue— the normal color for letters on the 
screen. 

To put the initial menu on the .screen, you would get 
the cursor to the beginning of the option menu and use; 

FOR 1=0 TO 5: PRINT C2$0P$(I):NEXT 

Then, to highlight option 0, the first option, you would 
get the cursor to the right row and use: 

PRINT C1$0P$(0) 

Now option appears in white. 

When the player moved the joystick down to the next 
row. you would first get the cursor to the position of 
the old choice, option 0. and 

PRINT C2$0P$(0) 

That sets the first option back to the regular background 
color. 

Then, get the cursor to the position of the new choice, 
option 1, and 

PRINT CI$0P$(1) 

Now the second option, option \, appears in white. 

This system would work Just fine, except that for mul- 
tiple menus you'd ha\'c to set up two-element arrays, with 
one element to choose Ihe menu and another to choo.se 
the option. 

But there's a simpler (though not always faster) way, 
based on the way the Commodore 64 and VIC 20 han- 
dle foreground color. 

HIGHLIGHTING WITH COLOR MEMORY 

As you know, the screen is mapped in "screen mem- 
ory." a portion of memory in which each byte corre- 
sponds with one pi)sition on the screen. The bytes of 
memory contain the code number tor the particular char- 
acter to he displayed in that particular position on the 
screen. (These are not ASCII codes-ihey are the .screen 
display codes.) 

The first address in screen memory contains the code 
for the character that will appear in the upper left-hand 
comer of the screen. The second address in screen mem- 
ory contains the code ftir the character that will appear 
ju.st to the right of it. The 22nd address (on the VIC) 
or 40th address (on the tA) contain the code for the right- 
most character on the top line. The next address has the 
code for the leftmost character on the next line down. 
And, of course, the last address in screen memory con- 
tains the code for the character in the lower right-hand 
corner c>f the .screen. 

When you use PRINT statements, BASIC takes the 
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CLOSE ENCOUNTERS 
OF THE FANTASY KIND 




QUESTROn: A role-plaiiing game so spelt- binding. U suspends re.alHy and conjures up 
an enchanted world whose onlii hope against the forces ofei'il is you. 

GEMSTOME WARRIOR: A lightning- fast action strategy game that will lcai>e (/on breathless 
with excitement as It takes you through the labyrinths of the nethenvorld on a noble quest 

Open them up and step through the gateway to your fantasies come true. 
At your local computer/software or game store today. 



QUeSTROM" is available on 4BK dIsKcttc for APPLE"!! 
with Aupksoft ROM, Apple II*. Itc. and lie 1*49.95), 
On 4(>K di>iK(ltc fur ATARI- tiotru- Cdinpiitcrs l$49.95V 
On (i4K (ii.skilti- foi t OMHODOKr M" (S39.95I 



OCMSTOME WARRIOR* is .miilable on WR diskette 

tor Al'I'l.l"'!! with Appl«s<>(l ROM. Apple IH, lie. 

,iiid III |$34.95). 

Also on fi4K iliskrili- loi ( OMMOIIOKI" M' (S.V»,95I 



i')H5i.y STRATEGIC SIMLLATIOnS, INC. 



If there are no convenient stores near yoii. VISA « M.C Iroldt^is To onler h\ mnW. scml yout check to: STKATr.Olc .s 

can order direct by catiina 800-227-1617. cxt. 335 (toli free). In i««3 Stitrlin Rn.id. Btd^ A 200. Moiiiitaiti Vti-w. CA *> 

Caiifornia, 800-772-3545, cut. 535. flwisc specif computer forni.il tt!sidi-nls, add 7%s;ik.s lax.t All oiircinmescarry.i H 

and add $2.00 for Khippimt and handlinci. or yout money biic k ijuiiraiitee. 

WRITE FOR A FREE COLOR CATALOG OF ALL OUR GAMES. 

APPLE. ATARI and tXll*1HOIX)Kr. *>4 .irr li.i(lriiKifl\-i nt Appir ( iimpiH*'r, Uk,. Atiti Jrii. .«mI t'omincKtoTt- r.U-«tinnHs. Llil. rc-iperjlwly. 
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ADVENffjRE GAME 
TUTORIALS 



Disk 1 


Disk II 


Disk III 


TEXT ADVENTURES 


MEGAVENTURES 


GRAPHIC ADVENTURES 


ZORK 1 


ULTIMA 11 


GOTHMOGS LAIR 


ZORK II 


ULTIMA III 


MASK OF THE SUN 


ZORK III 


ULTIMA IV 


DEATH IN THE CARIBBEAN 


ENCHANTER 


RETURN OF HERACLES 


BLADE OF BLACKPOOLE 


SORCEROR 


QUESTRON 


CRITICAL MASS 


STARCROSS 


Only $9.99! 


GRUDS IN SPACE 


SUSPENDED 




ULYSSES AND THE GOLDEN FLEECE 


PLANET FALL 




WIZARD AND THE PRINCESS 


DEADLINE 




ASYLUM 


WITNESS 




THE INSTITUTE 


Only $9.99! 


Only $9.99 1 



Have you ever played an Adventure Game where you just plain got stuck and couldn't get any further? 
Well, here's the answer —'Phoenix Red's Adventure Game Tutorials. They can be used as hints or they 
will tell you exactly what to do to get out of all those sticky situations. These Tutorials are written for 
your computer {A Commodore 64) not someone elses, so they work. 



We pay postage and handling. 
A must -have for all adventures. 
Order yours today ! 



Send check or Money Order to: 

Phoenix Red Software 

1620 Bay Area Blvd. Suite 703 

Houston, Texas 77058 

Call 713-280'8113 for more info. 
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"We put out money where our 
software is, not our copy 
protection '* 

— Phoenix ReD 
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By Mark Johansen 





ot long ago I had some hardware problems with 
my 1541 disk drive and. betbrc I rcali/.cd what 
was causing my ditTiciihies. the directory on a 
L rather valuable lloppy was destroyed. I took 
the drive to the shop and it was duly repaired, but in 
the meantime a disk was rendered useless. There is prob- 
ably a corollary to Murphy's Law that slates that when 
such a thing happens, the floppy disk destroyed will al- 
ways be the only one you own that you neglected to back 
up, tor that is exactly what happened to me. But i knew 
that most ol'the data on the tloppy should be intact: it 
was only the directory and perhaps one or two files thai 
were damaged. Ifoniy I could repair the directory, the 
effort that went into writing several gocxi programs could 
be saved. 

The problems involved in such an effort could be div- 
ided into two parts: one, 1 had to have a way to directly 
modify the directory; and twn, 1 had to know what 1 
should modify it to be. 

To solve the first problem 1 u rote a disk display and 
update utility, which I call DSKDU. and which I shall 
endeavor to describe here. It allows the user to look at 
what is on any given sector on the disk and modify it 
if he so chooses, \\ hile bypassing alt the standard file 
processing routines. It requires a C-64 or a VIC 20 with 
about 5K expansion and, ofcour.se. a 1541 disk drive. 

The second problem was made much easier than it 
might have been by the fact that Commodore provides 
fairly good documentation in the 1541 Disk Drive Us- 
er's Guide on how they laid out their disks. 

The results of this effort have proved to be useful in 
situations beyond the original problem. For example, 
1 have occasionally managed to create files with illegal 
names such as "." which cannot be deleted with the 
Scratch command, but which can be killed off with 
DSKDU. On the other hand, it makes it rather easy to 
"un-delcte" tiles that I have accidentally scratched (pro- 
vided I get to them before the system has reused the disk 



space). It has allowed me to look al exactly how vari- 
ous types of files are stiired. and I have even used it a 
few times to create data files that would have been in- 
convenient to produce with BASIC. 

FLOPPY FORMAT 

If you hope to accomplish anything useful by directly 
modifying disk data, you must have some idea of what 
the results should look like. Commodore conveniently 
provides details of their disk storage layouts in the 1541 
Disk Drive User's Guide, pages 65-68. I see no need to 
repeat all the details here, but the manual is extremely 
terse and some explanation may help you to understand 
what the tables are all about. 

The disk is divided into 35 tracks, numbered from I 
on the outside to 35 nearest the center. Each track is 
divided into sectors, which are numbered from to 20, 
but not all tracks have the full 21 sectors -the number 
of sectors per track decreases as one nears the center 
of the disk. (The table on the top of page 65 in your 
U.ser's Guide gives the actual number of sectors on each 
track.) Note that for some mysterious reason Commo- 
dore chose to number tracks beginning with one but sec- 
tors beginning with zero. 

The system maintains a directory on each lloppy in 
which it records what files are on this lloppy along with 
certain information about them, The directory always 
begins certain infomiation about them. The directory al- 
ways begins on track 18. sector I . Each file has one en- 
try in this directory. The first entry begins on the third 
byte of the block and each entry is 30 bytes long with 
two byte gaps between them. 

The tlrst byte of each directory entry contains a code 
indicating whether this file is sequential, program, rel- 
ative, or "user". If this byte is "00" then the entry is not 
currently in use: it is either beyond the largest number 
of files you have ever had on the floppy or the file has 
been deleted. In this case any other information in the 
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entry is irrelevant. 

The most obvious piece of data is the file name. This 
is easy to see because it is stored as normal ASCII text. 
The primary function of the directory is to relate this 
name to the actual data on the disk, which it does by 
also keeping the track and sector numbers of the first 
block of the file. 

In this first block, the first two bytes contain the track 
and sector numbers of the second block. The remaining 
254 bytes contain the beginning of the actual data mak- 
ing up the tile. The first two bytes of the second block 
contain the track and sector numbers of the third block, 
which contains the track and sector numbers of the fourth 
block, and so on, fomiing a kind of chain. The "pointer" 
in the last block has a track number of zero. (Remem- 
ber that "real" track numbers begin with one.) Instead 
of a .sector number, the second byte will contain the num- 
ber of bytes in this block which actually form part of 
the file. This allows the sy-stem to determine exactly 
where the file ends; without such an indication all files 
would have to come in exact multiple of 254 bytes. 

The directory itself is chained together just like a file. 
The first two bytes of its first block contain the track 
and sector numbers of its second block, which points 
to its third blcKk, and so on. It wouldn't do if we had 
to look in the directory to find the directory, so in.stead 
it simply always begins at track 18 sector 1 . By the way. 
this location was presumably chosen because it is in the 
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exact center of the disk, and as the directory will nor- 
mally be referenced more than any other data this should 
minimize movement of the read/write heads and there- 
fore of disk delays. 

This system of chaining works fine for sequential (and 
program) files, but relative files are intended to be ac- 
cessed randomly: that is, we do not want to have to read 
through all preceding records in order to find the one 
record desired. To enable us to do this. Commodore em- 
ploys what they call "side sectors." The directory entry 
for a relative file contains a track-.sector pointer to the 
finst side sector in addition to the pointer for the first 
data block. The first two bytes of this first side sector 
bl(Kk point to the second side sector, which contains a 
pointer to the third, and so on in the now-familiar pat- 
tern. Each side sector contains pointers to up to 120 data 
blocks. Thus, when a program asks for a record, the 
system will first determine which block it is in by com- 
paring the record length to the standard 254 data-bytes 
per block. If it turned out to be in, .say. bk)ck 67. the 
system would then find the 67th ptiinter in the first side 
sector bl(K'k and retrieve that block directly, without hav- 
ing to follow the chain all the way from the first data 
block. Similarly, if the record turned out to be in block 
70(), the sy.stcm would find the 100th ptjinter in the sixth 
side .sector block. Now, the whole purpose here is to 
avoid having to follow the pointers to find the desired 
block, so we really don't want to have to follow point- 
ers to get to the needed side .sector. Instead, each side 
sector contains pointers to all of the other side sectors. 
The system will always keep the la.st one u.sed in memory 
so even if it doesn't need the same one again at least 
it will know where the one it needs is to be found. Each 
file is limited to a maximum of six side sectors, but as 
each can point to 120 data bk)cks. this allows for a total 
of 720 blocks, more than are actually on a disk. 

The format of u.ser files is completely determined by 
the programmer, so they do not necessarily follow any 
of the above rules. If you wish to use them, youYe on 
your own. 

USING DSKDU 

The operation of the program is intended to be straight- 
forward. One general point shtjuld be made before I de- 
scribe the individual functions. All numbers are displayed 
in hexadecimal, and all input Jiiust also be in hex. While 
this may seem inconvenient at times, most notably when 
entering track and sector numbers, the disk data it.self 
is usually most logically presented in hex, and as you 
often get the next track/sector from the data in the cur- 
rent one. it .seemed rea.sonabie and consistent to make 
all input and output be in hex. 

Once it is LOADed and RUN, the program ask for 
the first track and sector to be displayed. (Remember 
these numbers must be entered in hex.) The program 
will read the disk and display the first sixty-four bytes 
of that block on the .screen. At the extreme lefi of each 
line will be the offset into the block, followed by the 
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An open letter to 

the readers of Ahoy Magazine 

Vincent Kurek 

President: The Ennon Corporation 



My purpose in writing is lo ask 
you to join me in sh,it>inj> the 
future ol' I he new jnci mosl unusual 
lield in computer technology today: 
Artilicial InlelSigence. 

This incrtflibie [jower iind 
s[)ectJtul,u t re.ilive potential are 
available to you, tor your i ompiiter 
right now. However, there is an 
dkirming possibility that such 
amazing tethnology which you 
h.n-e every right to, may not be 
avaiLitjSe lo you other that through 
ihi^ oiler. 

This is untortunale iwt somewhat 
unclerslandable due to the way 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore (s 
in a position to dictate immediate 
research goals. These goals are 
increasing ()r(jfits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new af)plications, The 
result: technology is newr used to 
its fullest polenti.il. But what's worst 
of all IS that these tompetitve 
corporations have absolutely no 
desire to shart> tec hnology with 
each other, let alone with you. So, 
they don't. As a result, the 
infinitesimal amount ot technology 
that finally trickles down to you is; 

A, So ex[)ensive you are pro- 
hibited from procurring it 

B, Shameliilly inferior to the 
real thing 

remember... you can buy high-tech 
ccjnsurner goods, but never the 
technology that creates it. 

This same situation confronts you 
in the nvvj Artificial Intelligence 
field, hut with a tlifference: 
There is no true Artificial 
Intelligence for the home computer 
userl The iew programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing. Posst'ssing a mere token of 
the power and versatility, simul.itors 
are clearly not worth their 
expensive price. 

I have tried repeatedly lo 
convince my colleagues that it is in 
their best interest lo release genuine 
Artificial Intelligence lo the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would im|)fove 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 



I have met with little success. 
ApiJarently. it seems that immediate 
corporate profit is mow important 
than sharing technology with the 
public. Theretofe. the Etinon 
Corporation stands .ilone in olYering 
superior ."Xrlillcial Intelligent e 
programming directly to the home 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe nie when I say AN-8,1 is 
the real thing. It is a true "ihinking" 
l.irograni that receives an initial 
"knowledge base" from a data file 
read when ,AN-9.1 is started. Using 
intluctive and deductive logical 
analysis, this amazing program 
tleduces everything from thai data 
dni\ adds it lo iis memory. 
Conversing with you, AN-6 i adds 
and combines with facts already 
known. It generates nc^v 
conclusions not e\[)licit!y containerl 
in its original knowledge base — just 
like your (Avn thinking process! The 
result: it knows considerably more 
than the specific facts given to it. 

AN-8'! can also think al)out 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The polenlial is 
limitless. In the right hands. AN-83 
would revolutionise the adventure, 
strategy and other smart game- 
playing ()rograms to say nothing of 
classic arcade games. On the other 
hand, AN-8.1 could be one oi the 
most powerful business analysts 
available to the home computer. 



FREE SOFTWARE 



In addition, you will be receiving 
free . Eli/a— the most amazing 
conversational A.I. program to dale. 
Run this lor your friends and jaws 
will drop with amazement. f.\i/..\'> 
responses are so human, it's 
uncanny. An entertaining |>rogram, 
Eli/a will answer once and for all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You <.,in be cre.itivr. Experiment 
and modify to fit your (lersonal use 
bec.iuse AN-83 itnd Eliza both 
possess source code in basic, the 
most popular easy lo use language 
lor the micro. Their extensive, easy 
to understand commands walk you 
through the source code 



ste[) by step. It's surprisingly simple. 
Even the beginner can unrlerstand 
the 'How and Why of A.l." 
A Fantastic Savings 

The real |)rofit to Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, 1 
am pleased to say nobody will miss 
this chance because they lould not 
aftord it. AN-8.3 is priced lo cover 
jusi a fraction of its research and 
de\elopniental costs. 

The "Thinking" Program AN-8.i is 
(usl S21..')7. What's more, the 
astounding Eliza is yours absolutely 
free . 

I guess it's ob\ iou>. that I want 
you to [)artici|jale in the future ot 
Artificial Intelligence. Forgive my 
excilemeni and enthusiasm but I 
just know you .ire going lo be \ery 
happy and impressed ihat such 
things could be done wilh your 
conifiuter. You just won't believe it. 
Pli'ase take this opporkinily now. 
Simply fill out your coupon below 
and m.iil today. Don't miss out. It's 
vuch a wonderlul future of 
discovery and excilement that 
awaits you. 

With very best of wishes. 
Vincent Kurek 
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values of the data bytes in hex, and then their represen- 
tations as ASCII characlers. Any byte which is not ASCII 
for a letter, digit, or one of a few special characters will 
instead be displayed as a period. 

Due to the limitations of the VIC's screen size, the 
program can only display 64 bytes of each 256 byte sec- 
tor at one time. To get the next 64 bytes you must press 
the 13 key.. If you wish to go back to the preceding 64 
bytes you must hit the f 1 key. If you hit 13 while the 
screen is displaying the last 'page' of the block you will 
be shown the first page, and if you hit fl while the screen 
is displaying the first page you will be shown the last page 

When you are finished looking at a given sector, you 
may instruct the program to show you another sector 
by pressing the 17 key. It will then ask you for the track 
and sector numbers and proceed as above. If you press 
the f4 key instead the program will dispense with ask- 
ing you for a track and sector and will display the next 
block in the file. 

If you wish to modify a sector, you may use the cur- 
sor control keys to move to the hex digit of the byte you 
wish to change, then press any valid hex digit key (0 
to 9 or A to F). The ASCII on the right will also be 
changed to refiect the new value. You may change any 
number of b>tcs in a sector and freely flip pages with 
the f I and O while doing so. When you have the sector 
looking the way you want it. press f8 to actually update 
the disk. Until you do this your changes are only kept 
in RAM, so if you make a mistake and want to get back 
to what was in the sector before, you need only press 
17 and reread the same sector (or you could go on to 
some other sector and forget the whole thing). 

When you arc through monkeying around with your 
fioppy. press O to exit the program. Note: Don't exit 
by pressing RUN/STOP as this will leave the disk chan- 
nels open and terrible things may result. 

If you press any key which the program cannot inter- 
pret, it will fiash a help screen telling what the valid keys 
are and what they do. If you forget which function key 
does what, simply hit anything invalid, such as the re- 
turn key or a question mark, and you will be shown this 
help screen. 

PROGRAMMING NOTES 

A few comments may be in order on .some of the less 
comprehensible portions of this program. 

The first requirement in writing it was to be able to 
get data off the disk by track and sector and then put 
it back after it was modified. This could have been dif- 
ficult to do had not Commodore ct)nveniently provided 
the Ul and U2 disk commands. The U 1 command caus- 
es the drive to read a block specified by a track and sec- 
tor number and load it into a buffer in the drive unit; 
U2 takes data from the buffer and writes it onto the disk. 
The only remaining problem was transferring data be- 
tween the buffer and the computer itself. The normal 
way to read data is with INPUT* or GET#. INPUT# 
was ruled out because it makes too many assumptions 
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about what the data will kxik like. It drops leading blanks, 
expects to see a carriage return to terminate the input 
stream, and assumes each variable will be terminated 
by a comma or colon. None of this could be expected 
to be true for an arbitrarily chosen block on the disk, 
especially for those containing directory information or 
programs. Thus GET# seemed the logical choice, and 
indeed that was what I used in my first version of the 
program. Unfortunately, this ran extremely slowly. Writ- 
ing with PRINT*, while not as bad. was also unacccpt- 
ably slow. Therefore. I decided to code the read and 
write routines in machine language. I have entered the 
POKE values in the listing with the corresponding as- 
.semblcr mnemonics as REMarks beside them as an aid 
to comprehension. Each routine transfers data from the 
buffer directly into or out of the integer array D%. Lines 
1 1 30 and 3 1 30 are used to get the address of this array 
into locations 828-829 where it can be accessed by the 
ML routines. 

Displaying the block is rather simple. Line 2150 prints 
the hex representations of bytes, four per line, while line 
2160 prints the ASCII values. Some of these cannot be 
printed without messing up the display, most notably the 
color codes and cursor controls, and so are converted 
to periods. 

Control of the cursor for modification is a bit unus- 
ual. Line 2220 computes which byte of the sector we're 
on from page. line, and column. It also computes an ad- 
justed column number (CI) to allow for the space after 
every two hex digits on the display. Line 2225 sets up 
and calls the kernal plot routine. Line 2230 turns on the 
blinking cursor, and line 2250 shuts it off again after 
getting a character and then puts back whatever was in 
that position before (so we don't leave inverse video 
blocks scattered about the screen). 

Whenever a byte is itiodified. the new value is com- 
puted in lines 2430-2450 by simply running the hex rep- 
resentation through the input routine. This is admitted- 
ly a bit clum.sy. but it was short and easy to write and 
it seems to run sufficiently fast. 

FINAL COMMENTS 

Beginning users are cautioned against trying to mod- 
ify the disk directly when they are not sure exactly what 
they arc doing, especially with regard to the directory. 
A good idea might be to practice on a 'Junk disk' with 
a few files tossed on it, to .see exactly what happens. 

Another caution to bear in mind is this: if you do any- 
thing to change which sectors are "in use." be sure to 
run the verify (V command) to update the Block Allo- 
cation Map, (This is a table which the system keeps on 
track 18. sector 0, in which it records which blocks are 
in use and which are available.) While it is possible to 
alter the BAM yourself. 1 definitely recommend against 
it. Its format is rather obtruse, making it easy to err, 
and any error can result in data being overwritten -Veri- 
fy is easier and safer. D 

SEE PROGRAM LISTING ON PAGE 105 
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A Sequential, Program, and Machine 
Language File Copier for the 64 

By Dave Barron 



he Super Diiper file copier utility will allow 
disk users to copy sequential or program files 
easily from one disk to another (or onto the 

same disk). It will also allow you to rename 

the file. One nice feature is that you can also copy ma- 
chine language programs without having to know end- 
ing and starting addresses, thus making it easy to copy 
ML programs. 

Super Ditper demonstrates the use of what I like to 
describe as hybrid programs. These are programs F enjoy 
writing because I can take advantage of the easy to use 
BASIC language and combine it with the speed and/ or 
necessity of using machine depending upon the appli- 
cation. Further, by using kernal routines I can create 
short elTective programs while letting the already built- 
in ML routines do much of the work. 

A brief description of the BASIC program listing fol- 
lows. Also included on this page is a disassembly of the 
actual ML ctxle that is POKEd in by the BASIC pro- 
gram, for those that wish to follow the ML logic, with 



ML Code Disassembly 



;load X reg with file #3 

;JMP to CHKIN kernal routtne 

;JMP to GETIN kernal routine and put 

character In A reg 
;loaid Y reg vlth counter 
;put character gotten Into menory 
; increment Y reg (the counter) 
; store the counter into counter neaaor; 
location 

;CDiBpare counter to zero 
;l£ not branch to OE!D 
;lf counter was Increment meioory 

pointer 

;load X with painter value 
;la file too large to fit into memory 
;i£ file too large then branch to 0E21 
;load A reg vlth status vord 
;lf it's branch to ^jE''>5» get another 

character 
;JMP to CLftCHN kernal routine end clear X/0 

channela 
; return to BASIC 

;load X reg vlth logical file 13 
;JHP to CHKOin' kernal routine and open channi 

for output 

:load Y reg vlth counter 
:load A reg vlth firat character Croa 

Bieoory 
icodtpare Y reg to what 'a In pointer 

location 

!lf not equal branch to 0E39 
;laad X reg vith vhat'a in pointer 
;compare vhat^s In X to what's in PC 
;if it's equal branch to ''jEA9 
; Increment Y reg 

; score Y reg Into counter location 
;JHP to CHRCHJT kernal routine and output 

character to dtak 
;coapare Y reg to 

;tf not branch to 0E2A & get another 
character 
; increment pointer 
:go back and get another character 
;JMP to CLRCKN kernal routine and clear I/O 

channels 
; return to BASIC 



3584 A2 ri3 
3586 2'J C6 
3589 2'i E4 


FF 
FF 


LDX l$03 
JSR $FPC6 
JSR JFFB4 


3592 AC 3C 03 
3595 91 FB 

3597 C8 

3598 8C 3C 03 


LDY $fi33C 

ST* ($FB).Y 

INT 

STV $rj33C 


36fJ! Crj Vl 

36^)3 Vi 'J8 
SefjS E6 FC 




CPY Isr/J 
BHE iOElD 
IMC »FC 


36^;? A6 FC 
3609 efi 9F 
3611 Pi 'A 
3613 AS 9fJ 
3615 Pi E4 




LDX $FC 
CPX IJ9F 
BEQ SfjE2I 
LDA $90 
BEQ J0E05 


3617 20 CC 


FF 


JSR JFFCC 


3620 60 
3821 A2 03 
3623 20 C9 


FF 


RTS 

LDX #$03 

JSB JFFC9 


3626 AC 3C 03 
3629 81 FB 


LDY »033C 
LDA (tFB),* 


3631 C4 FO 




CPV $FD 


3633 Vl 'lb 
3635 A6 FC 
3637 E4 FE 
3639 P> 10 

3641 08 

3642 8C 3C 03 
3645 20 D2 FF 


BNE S0E39 
LDX JFC 
CPX $FE 
BEQ $0E49 
INY 

sn $033C 
JSR IFFD2 


3648 Cj 'f> 
365fj Vl E6 




cn IVXj 
BNE »0E2A 


3652 E6 FC 
3654 4C 2A 
3657 20 CC 


OE 
FF 


INC »FC 
JHP $0E2A 
JS8 $FFCC 



3660 6fj 



RTS 



brief comments. D 

Line #.s Description 

10- 30 Clear the screen and POKE in ihe ML code from the data 
contained in lines 240 through 280. The numbers POKEd 
in by line 30 set memory'; pointers used for keeping track 
of where we arc in mennory later on and initiahzing a coun- 
ter location. 

40- 80 Prim onscreen menu. 

90-] 10 Get user's choice, convert his string response to a numeric 
value, and jump to appropriate line to handle choice. 

120-150 Allow user to input Hie name. 

160-180 Open disk file and jump to ML routine beginning at 3584, 
which reads file into computer's memory. 

190 Sets where end of file just read in e.iisis. re.sel memory 
allwation. and reinitiali/c counter. 

200-210 Get user's new filename .xnii allow user to swap disks. 

220-230 Open disk file to write file to and jump to ML routine at 
3621 to write file to disk from computer's memory. 

230 Tells user copy is coinplclc and gtws back to see if he wants 
to copy any more files. 

240-280 The data siaienients with the actual ML code. 

290 End progratn. 

SEE PROGRAM LISTING ON PAGE 107 
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COLUMN THE C-64 

niDCPTflDV ^^ RICHARD LOVETT 
UlnCir I Un T AND BARRY ARCHER 



Have you ever listed a disk directory, only 
to have lialf of it scroll out of sight before 
you could read it? Have you ever wanted 
, I to load or erase files right from the direc- 
tory without typing ail those lengthy commands? Then 
Two-Column Directory is for you. 

As its name implies, Two-Column Directory displays 
the directory in two rows, making it possible to view 
40 file names at once instead of the usual 25 or fewer. 
{Many of your disks probably contain fewer than 40 files, 
so much of the time you'll be able to see the full direc- 
tory in one shot.) 

The program also allows you to load or erase files 
by putting the cursor on the file name of your choice 
and pressing just one or two keys. 

In addition to working as a stand-alone program, Two- 
Column Directory can be pared down to a subroutine 
for use within your own programs. The subroutine that 
we will describe omits the toad and erase features in or- 
der to make the length of the code manageable. The re- 
sulting routine will provide a two-column directory from 
within your program without erasing your program in 
the process. 

In order to display dual rows of directory information, 
Two-Column Directory had to compromise somewhere. 
The Commodore 64"s 40-column screen can't show two 
file names side by side and still include the program types 
and number of blocks occupied by each file. So, Two- 
Column Directory displays the program type as one let- 
ter (P for Program. S for Sequential, and R for Rela- 
tive) and omits the file size. Most of the time, the size 
is not crucial anyway. 

After listing the first 40 file names (or fewer, if that's 
ail the disk contains), the program beeps, displays a rec- 
tangular yellow cursor, and shows a command line at 
the bottom of the screen. This line reminds you that fl 
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will continue the listing. f3 will start the listing over 
again. f5 loads a program, and f7 era.ses one. 

To load or erase, use the cursor control keys to put 
the cursor on top of the file name of your choice, Two- 
Column Directory is set up to load any program file that 
uses the LOAD "filename". 8 syntax. If you press 17 to 
erase, the command line asks you to confirm your in- 
tent before it scratches the file. And, if you accidental- 
ly put the cursor on a blank line before pressing f5 or 
f7, the program ends. 

Assuming there are more than 40 files on the disk, 
a press of f I causes Two-Column Directory to erase the 
lefthand column and show the next 20 file names; if still 
more remain, another press of f I erases the righthand 
column and shows an additional 20. This procedure con- 
tinues until the full directory has been displayed. 

To trim things down to a manageable subroutine, omit 
lines 70, 140-160, 200, 210, 250, and 260-580. Then 
make these additions or substitutions: 

•25 C0L=1 

•140 IF BY$="" OR BY$=CHR$(3A) THEN BY$=C 

HR$(32) 

•165 PRINT BY$;: NEXT 
•205 IF C0L=2 THEN PRINT HO$+"[DOWN]":GOT 

110 
•210 PRINT "[DOWN] [12" "][RVSON] PRESS A 

KEY" 

•211 GET J$: IF J$="" THEN 211 
•212 PRINT H0$+"[ DOWN] [DOWN]"; 
•225 PRINT SP$;SP$;HO$;"[DOWN]": GOTO 110 

You will also need to add either a RETURN or GOTO 
line following line 255 in order to send control back to 
your main program. D 

SEE PROGRAM LISTING ON PAGE 103 
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2| Fast, dtpendabie service Our shipping departmeni warks hard lo get your 4| Personnel who care The people al TCP sincerely want you lo be happy viiilli 

orders out quickly, usually within one business day the way your order is handled We all know oui lObs depend an having a happy 

ORDERS ONLY PLEASE: 800-468-9044 '""°"'" INFORMATION & PA ORDERS: 814-234-2236 

PHONE LINES OPEN 10-8 MON-FRI, 10-5 SAT 



THE PANASONIC KXP 1091 PRINTER 

Near tetter quality at the flick of a switch 
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Our price S27aOO 

Panasonic KXP 1090 $199.00 
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"DEALER INQUIRIES INVITED " 

Other product lines available! Call for prices. 
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NEW PRICES! 
Commodore 64 is $147.00* 
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BUY A BUNDLE— 
$AVE A BUNDLE 

Order one al these popuiai packages ot pmiliicts by number lor super 
savings r 
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TUSSEY COMPUTER PRODUCTS 

* (foimetly Tussey Mountain Software) 

BOX 1006 
STATE COLLEGE, PA 1B804 
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INNOVATIVE ORGANIZERS, INC. 
For Commodore 64™ & VIC-20™ 




WELCOME, to the family of INNOVAXrVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now, let's examine how these organizers work. There are 3 CRT-Models. 
CRT-I holds a Monitor or T.V. Set and a VIC 20 or 64. All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT-1 , but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection 
incoming power fused with 6AMP Fuse). 

CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 
P-D-1: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
AH wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 
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CRT-1 


$17.98 


CRT-2 


$29.97 


CRT-3 


$37.97 


P-D-1 


$19.48 i 



P.O. Box 108. Marklcville, IN 46056 
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Optional Accessories 

SS-1 Surge & Spike 
Suppressor 

$29.95 

CF-1 Computer Fan 
$29.95 



Plus Shipping 

CALL TOLL FREE 
1-800-233-3645 Ext. 15 
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Replacements and 
Enhancements for 
the 1541 Disk Drive 

TStf ^/riotton J\^aoetson 



Last month we examined the Indus GT and Commander II drives, 1541 
Physical Exam, and On Track Indicator. This month we conclude with 
Kwik-LoadI, 1541 Flash, and Fast Load. 






KWIK-LOAD! 



Datamost Inc. 



20660 Nordhoff Street 



Chatsworth, CA 9131 1 



Phone; 818-709-1202 



Price SI 9.95 



While placing the emphasis on last 
disk operation, the Kwik-Lcmd! name 
neglects to mention the additional 
features of this low-cost yet power- 
ful disk utility. Written by Mark 
Riley, author of Paint Magic, the 
Kwik-Load! utility disk contains two 
programs. The first speeds up the 
LOAD time of the 1541 with the 
Commodore 64 by a factor of five. 
The second is a collection of disk 
utilities which simplifies and speeds 
up the most common disk file main- 
tenance operations. 

The Kwik-Load! utility is a short 
machine language routine which 
loads into the SCOOO block in the 
Commodore 64. It is linked into the 
C-64 operating system by changing 
the LOAD vector at $330-$33 1 to 
point at itself, thus diverting all sub- 
sequent LOADs away from the usual 
Kemal routines. Although a three to 
one speed benefit is touted by the 
program's purveyors, the actual 
benefit is a combined function of the 
type of disk activity, program length, 
and number of files being accessed. 
Typical speed improvements hovered 
around the five to one mark. For ex- 



ample. Paper Clip, our perennial fa- 
vorite for long LOADs, clocked in 
at less than 15 seconds, down from 
over a minute and a quarter on the 
first try. Note that Kwik-Load! only 
works when loading programs. It has 
no effect on SAVE times. 

As with all RAM ba.sed speedup 
utilities, Kwik-Load! will perform 
best with BASIC programs. Most 
autobool commercial software will 
disconnct the program during the 
boot process. A second version of 
Kwik-Load!, supplied on the disk, 
LOADs into the top of free BASIC 
RAM. In the process, it reduces the 
amount of available memory for 
BASIC programs by one kilobyte. In 
exchange. Commodore's DOS 
wedge can be LOADed in the usual 
fashion. 

KWIK-COPY 

Kwik-Copy, the second part of this 
package, is a comprehensive disk 
utility program. The highlight of the 
package is a high speed disk copy 
routine which will copy an entire disk 
in 4.5 minutes and three passes with 
just a single disk drive. If two drives 
are used, the process takes a mere 
3 minutes 40 seconds (of course the 
need to swap disks back and forth is 
also eliminated). These times were 
obtained with the verify option 
turned off. Turning verify on will 
slow things down a bit, but not very 
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much. The routine aborts on encoun- 
tering a bad sector, so do not wait 
for those disks to start going bad be- 
fore backing up. 

Kwik-Copy automatically accounts 
for a second drive. If you have a 
hardware device nine on one drive, 
turn them both on and boot the pro- 
gram. If both drives are a device 
eight, turn one on and boot up. When 
done, turn on the second drive. 
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Kwik-Load! will automatically sense 
the presence of the additional drive 
and perform a soft change of the de- 
vice number. 

Other utilities included are an easy 
to use sector editor with a rather nice 
two part hex and ASCII display, a 
high speed file copy utility, and a 
BAM directed copy routine. A drive 
speed checking routine is included as 
well. The speed test is completely 
passive as it does not write to the disk 
surface when in operation. 

The file copy routine has a very 
handy feature which the manual fails 
to document properly. When the rou- 
tine prompts for a file name, enter 
the asterisk {*) character as a default. 
The program will automatically dis- 
play each file natne and ask if you 
wish to copy it. 

CONCLUSION 

Kwik-Load! is the first of a series 
of competitively priced ($19.95) 
Kwik-Ware! software to be released 
by Datamost. All of these programs 
will incorporate the same high speed 
disk routines. It is a package well 
worth consideration by the budget 
conscious. D 



1541 FLASH 



Skyles Eleanc Works 



\2i\ E. South Whisman Road 



M ountain View, CA 94041 
Phone: 415-965-1735 



Price S89 95 



The Skyles Electric Works 1541 
Fla.sh consists of two eight kilobyte 
ROMs with asscK'iated hardware and 
a disk drive to computer connecting 
cable. The Flash is actually a re- 
placement for the C-64 Kernel and 
half of the 1541 DOS. In operation. 
the Flash provides approximately a 
three to one speed improvement for 
all disk operations. A mini DOS 
wedge and some C-64 program edit- 
ing support are included as well. 

HARDWARE AND 
INSTALLATION 

The 1541 Flash consi,sts of sever- 
al components. In addition to the two 
ROMs mentioned above, there is a 
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pair of printed circuit adapter boards, 
a cable assembly, and a combination 
connector/switchboard/user port ex- 
tension assembly. 

Installation of the Flash is not for 
everyone. At best it will require dis- 
assembly of both the Commodore 64 
and the 1541 disk drive. At worst, 
considerable adaptive surgery of the 
C-64 circuit board will have to be 
performed. 

On the C-64 side you will have to 
remove the Kemal ROM and replace 
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Startup screen with Flash installed. 




Flash hardware components {see text). 




Flash installed in C-64's user port. 




Flash installed in 1541 disk drive. 



it with an adapter board which allows 
for the simultaneous installation of 
rwo ROM chips. This will present lit- 
tle difficulty if your C-64 has its Ker- 
nal ROM in a socket. Many of the 
more recent editions of the C-64 have 
the chips permanently soldered into 
place. Extraction, in this case, is a 
tricky procedure involving the simul- 
taneous unsoldering of a chip with 
24 leads. This has to be done with- 
out damaging either the circuit board 
or the original Kemal ROM. If your 
C-64 has a soldered-in Kemal and 
your dealer is not able to perfomi the 
necessary microsurgery (a likely oc- 
currence), Skyles will do the service 
for $28.50. Given round trip trans- 
portation for the computer, this 
would probably be a three week min- 
imum proposition. Jf you happen to 
be in northern California with your 
C-64, you may call for an appoint- 
ment for an on the spot replacement. 

A special adapter board replaces 
the original ROM chip. This consists 
of the replacement ROM, a second 
socket to allow reinstallation of the 
original ROM, and a pair of wires 
which go to a second adapter board 
which plugs into the user port. 

The second board serves several 
purposes. It includes a small switch 
which chooses between the two 
ROMs now installed in the C-64. It 
provides a convenient termination 
point for the extra cable which goes 
to the 1541 disk drive. It connects 
up to two of the lines on the CIA port 
and it extends the user port itself for 
use by other accessories. 

As a result, the user port contacts 
are fully exposed to possible electri- 
cal contact with other objects. An in- 
sulated protective cover should have 
been provided with the kit. Also, un- 
like the original C-64 contacts, the 
extension board is not gold plated. 

In the 1541, one of the operating 
system ROMs has to be pried from 
its socket and replaced. Also, one of 
the 40 pin VIA chips is yanked, a pin 
is bent so it points away from the 
body of the chip, and the chip is rein- 
stalled. A pair of micro chips on the 
supplied cable assembly are con- 
nected to the VIA chip. Routing of 
the cable completes the installation. 



We felt that an adapter board with 
a permanent connection would have 
done away with the need for the mi- 
crochips or any bending of chip 
leads. For our test installation, we 
rigged a 40 pin socket to eliminate 
the lead bending step. 

OPERATION 

Bryce Nesbitt is a name with 
which owners of the Flash will be- 
come intimately familiar. The C-64's 
turn on greeting message is aug- 
mented to remind you of Bryce's 
handiwork whenever you power up. 
User RAM is unaffected by the Flash. 
The usual 389! 1 bytes free appears. 
The switch on the user port adapter 
allows you to completely restore the 
original configuration of the C-64 by 
electrically switching between the or- 
iginal ROM and the Fla.sh ROM. 
This will allow use of the computer 
with an unmodified disk drive or 
with any user port accessories which 
may require all of the CIA lines. The 
hardware change in the 1541 is ir- 
reversible. A DOS command has 
been added to provide a soft reset of 
the disk drive to permit operation 
with the unmodified C-64. 

In operation, we found the Flash 
to give an approximately three to one 
speed improvement for all disk drive 
operations. This included file oper- 
ations as well as program loads. The 
actual speed benefit varied with the 
particular sequence of operations. 
For example, Easy Script went from 
62 to 30 seconds. Paper Clip from 
78 to 23 seconds, and Stamiiii}; 
Stones by Electronic Arts from 139 
to 80 seconds. Programs which per- 
form complex operations on multiple 
levels, typically databases, will also 
benefit from the much fa.ster head 
movement which accompanies the 
Flash in the 1541. This high speed 
head movement remains in effect 
even when the Flash is deactivated. 

COMPATIBILITY 

Compatibility with commercial 
software is quite good. All the stan- 
dard Commodore DOS commands 
are recognized. Most copy protected 
software worked without any prob- 
lems, although some programs 



would load only if the Flash was 
turned off. We did come across some 
samples which would not work at all 
with the Flash-equipped disk drive. 
An arrangement for the disk drive 
similar to the C-64, where the ori- 
ginal ROM can be switched back in, 
would have been beneficial, 

SYSTEM 
ENHANCEMENTS 

The Flash includes a tiny DOS 
wedge which simplifies issuing disk 
commands and reading the error 
channel. The commercial at (@) 
symbol replaces the OPEN 15,8, 15: 
PRINT#15, sequence when followed 
by any standard DOS command. The 
character alone reads the error chan- 
nel. The disk directory can be dis- 
played to the screen without affect- 
ing the program in memory. 

The Commodore full screen edi- 
tor is enhanced with several new fea- 
tures. These include rapid cursor 
movement to the bottom of the 
screen, a sixteen character tab, line 
delete, partial screen clear, and a 
program LISTing pau.se. 

Several DOS coinmands have been 
added as well. These deal with the 
block read and write operations and 
are intended for programmers who 
wish to directly utilize the high speed 
Flash routines. 

CONCLUSIONS 

The 1 54 1 Flash docs make work- 
ing with die 1 54 1 disk drive far more 
comfortable. The waiting time for 
long files to LOAD, which used to 
be an everlasting tedium, has been 
reduced to a tolerable bore. Shorter 
LOADs which merely involved an 
annoying delay respond with a wel- 
come snappiness. The fairly complex 
Installation will deter many users 
from the purchase of a Flash. We do 
suggest you check your C-64 for a 
socketed Kernal ROM before mak- 
ing a final decision. The manual does 
include a detailed in.stallation section, 
with rea.sonably clear photographs, 
which should prove adequate for 
anyone with some familiarity with 
the hardware. 

Overall, the Flash was a pleasure 
to work with. It was not without 



some reluctance that we removed it 
from our system after the thirty day 
evaluation period. D 



FAST LOAD 



Epyx 

1043 Kiel Court 
Sunnyvafe, CA 94089 
Phone 418-745-0700 
Pfife: S40 00 



The Epyx Fast Load utility is 
packaged as an eight kilobyte ROM 
in a plug-in cartridge. You just plug 
it in to the cartridge port of the C-64 
and forget about it. The most drama- 
tic improvements in disk drive speed 
are associated with the LOADing of 
long program files, the longer the 
better. For example. Paper Clip nor- 
mally LOADs in one minute and 
eighteen seconds: with Fast Load it 
only takes fifteen .seconds— a more 
than five to one speed up. 

The performance is not nearly as 
impressive when you get away from 
straight LOAD operations. For ex- 
ample. Standing Stones from Elec- 
tronic Arts normally boots in two 
minutes and twenty seconds. With 
Fast LiHid the procedure is reduced 
to one minute and forty seconds, a 
forty percent increase in speed. An- 
other example is Commcxlore's Easy 
Script, where the original LOAD 
time of one minute and two .seconds 
showed a mere five percent improve- 
ment at fifty nine seconds. Of course, 
other cartridge-based software was 
actually slowed up by the amount of 
time it takes to yank Fast Load from 
the expansion port. Finally, working 
from within Easy Script, we found 
no discernible difference in the time 
which it took to read and write text 
files. 

A DOS WEDGE— 
BUILT IN 

Fast Load offers far more than a 
five to one speed increase in program 
LOADs. It is actually several utili- 
ties in one package plus a number of 
DOS convenience features thrown in 
for good measure. When your C-64 
is powered up with the Fast Load 
cartridge in place, the only discern- 
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ible difference is the product name 
along with the usual sign-on message. 
Do not let this lull you into a false 
sense of smug somnambulance. 
Lurking at your nngertips are a 
myriad of hitherto unavailable fea- 
tures just awaiting your beck and call. 
The first and foremost is an instant 
DOS wedge. To get a directory list- 
ing just type "$" (that's SHIFT 4 for 
all you neophytes) and hit RETURN. 
Voila, the directory scrolls by right 



before your eyes. Furthermore, any 
program residing in the computer's 
memory remains totally oblivious to 
the turmoil taking place around it. 
The only drawback was that there 
seemed to be no way to slow down 
or put a halt to the process. Once 
started, the directory seemed most 
determined to scroll by to its final 
conclusion where it profoundly pro- 
claims the disk BLOCKS FREE 
message. 
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Since November 1984, Mr. Nibble has- 
successfully copied heavily protected 
diskettes for grateful C-64 owners! 
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The next generation in archival 
methods is here today! 

• No better disk copier at any price 

• Easy-to-use — no complicated 
instructions 

• Totally automatic — no knowledge 
ol DOS required 

• You'll LOVE MR. NIBBLE" — it not. 
return within W days for lull refund 

Own THE FINEST DISK COPIER SYSTEM for 

The C-64 and 1541 disk drive - Q,^[^ todau I 




Full Circle 



FULL CIRCLE SOFTWARE, INC. 

P.O. Box 1373 
Dayton, Ohio 45401 

Phone (513) 223-2102 



A liQ QK Includes snipping & handling 
^'Tjf'Tr*^ (Ohio residents add 6° > sales tai) 



10 day return privilege 



Special MSD Version now available! 
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Hitting RUN/STOP and 
RESTORE just made matters worse. 
The screen cleared and the drive 
went off to sulk, apparently on an 
endless binge of disk spinning. Even 
depriving it of its orbiting celluloid 
had no noticeable effect. Despair not; 
the commercial at (@) is available 
for inquiring into the health and well- 
being of the disk drive as it reads the 
DOS error channel. Exercising its 
function brings a response of bliss- 
ful contentment (a display of 00 OK 
00 00) shortly followed by a cessa- 
tion of all rotary motion. 

One other peculiarity commanded 
our attention. The traditional means 
of querying the disk contents, name- 
ly LOAD "$".8, returned a gaggle of 
worthless gibberish. However, the 
slash (/) character, which is now 
available in addition to the tradition- 
al LOAD command, served well in 
the classical sense. The directory thus 
LOADed retains its usefijl meaning. 
Other handy characters are the per- 
cent {%) symbol which replaces the 
binary LOAD "FILE", 8,1 sequence 
and the left arrow {—■ ) which re- 
places the BASIC SAVE. 

Last but not least, the well-known 
LOAD "*",8.1 sequence, used by 
many purveyors of commercial soft- 
ware, is now available by the simul- 
taneous depression of the Commo- 
dore logo and RUN/STOP keys, 

THE DISK TOOL 

In addition to the built-in Wedge, 
Fust Load has a series of utilities re- 
ferred to as the Disfi Toof. Upon crit- 
ical analysis, we would consider 
these a full-fledged crowbar. The 
British Pound key is used to access 
the Tool utilities. These are most 
comprehensive. Included are: 

• A single tile copy utility which 
is limited to program files. 

• A full disk copy utility which al- 
lows for Preformatted as well as post- 
formatted disks. This routine takes 
about ten minutes. 

• A BAM-directed disk copy util- 
ity. This will only copy sectors which 
are marked as allocated on the block 
availability map. 

• A disk sector editor utility. This 
allows you to read any disk sector. 



A Printer For All Reasons 

Search For The Best High Quality Graphic Printer 



ir you have been looking very long, you have 
probably discovered that there are Just too 
many claims and counterclaims In the printer 
market today. There are printers that have 
some of the features you want, but do not have 
others. Some features you probably don't care 
about; others are vitally Important (o you. We 
understand, in fact, not long ago, we were In 
the same position. Deluged by claims and 
counterclaims. Overburdened by rows and 
rows of specifications, we decided to separate 
all the facts — prove or disprove all the claims 
to our own satisfaction. So we twught printers. 
We bought samples of all major brands and 
tested them. 

Our Objective Was Simple 

We wanted to find that printer which had all 
the features you could want and yet l>e sold 
directly to you at the lowest price. We wanted 
to give our customers the tiesl printer on the 
marKet today at a bargain price. 

The Results Are In 

The search Is over. We hae reduced the field to 
3 single printer that meets all our goals (and 
more). The printer is the GP-550 from 
Selkosha. a division of Seiko. We ran this 
printer through our battery of tests and it 
came out shining. This printer can do it all. 
Standard draft printing up to a respectable 
(and honest) 86 characters per second, and 
with a very readable 9 (horizontal) by 8 (ver- 
tical) character matrix. At this rate, you will get 
an average 50 line letter printed in only 28 
seconds. 

"NLQ" Mode 

One of our highest concerns was al»ut print 
quality and readability. The GP-SSO has a print 
mode termed Mear l«tter Quality printing (MLQ 
mode). This is where the GPSSO outshines all 
the competition. Hands downl The character 
matrix In riLQ mode is a very dense 9 (horizon- 
tal) by 16 (vertical). This equates to J4,4O0 ad- 
dressable dots per square Inch. Plow we're talk- 
ing quality printing. \ou can even do graphics 
in the high resolution mode. The results are 
the tjest we've ever seen. The only other 
printers currently available having resolution 
this high go for $500 and more without the in- 
terface or cable needed to hook up to your 
computer. 

Features That Won't Quit 

With the GP-550 your computer can now print 
40, 48. 68. 80. 96, or 136 characters per line. 
You can print in AffY of 18 font styles. You not 
only have the standard Pica, Elite, Condensed 
and Italics, but also true Superscripts and 
Subscripts, never again will you have to worry 
about how to print ffjO or X^. This fantastic 
machine will do it automatically, through easy 
software commands right from your keyboard. 
All fonts have true descenders. 

One of the fonts we like best Is "Proportional" 
because It loolu most like typesetting. The 
spacing for thin characters like "i" and "I " are 
given less space which "tightens" the word 
making reading easier and faster. This is only 
one example of the careful planning put into 
the GP-560. 




Do you sometimes want to emphasize a word? 
it's easy. Just use bold (double strike) to make 
the words stand out. Or, If you wish to be even 
more emphatic, underline the words. Or do 
both. You may also wish to "headline " a title. 
Each tiasic font has a corresponding elongated 
(double-wide) version. You can combine any of 
these modes to make the variation almost 
endless. Do you wnat to express something 
that you can't do with words? Use graphics with 
your text — even on the same line. 

You can now do virtually any line spacing you 
want. You may select 6, 8. 7'/i or 12 lines per 
inch. PLUS you have variable line spacing of 
1.2 lines per inch to infinity (no space at all) 
and 97 other software selectable settings in 
between. You control line spacing on a dotby- 
dot basis. If you've ever had a letter or other 
document that was Just a few lines too long to 
fit a page, you can see how handy this feature 
is. Simply reduce the line spacing slightly and 
... VOILA! The letter now fits on one page. 

Forms? Yes! 
Your Letterhead? Of Course! 

Do you print forms? Mo problem, This unit will 
do them all. Any form up to 10 Inches wide. 
The tractors are adjustable from 4'/i to 10 In- 
ches. Yes, you can also use single sheets. Plain 
typing paper, your letterhed, short memo 
forms, anything you choose. Any size under 
10" In width. Multiple copies? Absolutely! Put 
forms or Individual sheets with carbons (up to 
5 deep), and the last copy will be as readable as 
the first. Spread sheets with many columns? Of 
course! Just go to condensed mode printing 
and print a full 1J6 columns wide. Forget ex- 
pensive wide-carriage printers and changing to 
wide carriage paper. You can no do It all on a 
standard 8'h" page. 

Consistent Print Quality 

Most printers have a continuous loop ribtx>n 
cartridge or a single spool ribbon which gives 
nice dark printing when new. but quickly starts 
to fade after a while. To keep the printers' out- 
put looking consistently dark, the ribbons 
must be changed more often than is healthy 
for the pocketlxjk. The GP-550 solves this 
problem completely by using a replaceable, in- 
expensive ink cassette which is separately 
replaceable from the actual ribtxin. It keeps 
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the ribbon loaded with ink at all limes. You only 
replace the ribbon when it truly wears out. not 
when it starts to run low on Ink. Just another 
example of the superb engineering applied to 
the GP-550. (When you finally do wear out your 
ribbon, replacement cost is only $10.95. Ink 
cassette replacement cost is only $5.95. both 
postpaid.) 

The Best Part 

When shopping for a quality printer with all 
these features, you could expect to pay around 
$500 or more. Hot any morel We have done 
our homework. You don't have to worry about 
Interfaces or cables. Everything is included. 
You need absolutely nothing else to start prin- 
ting — Just add paper. 

no Risk Offer 

We give you a 15-day satisfaction guarantee, if 
you are not completely satisfied for any reason 
we will refund the full purchase price. A 1-year 
warranty Is included with your printer. 

The Bottom Dollar 

CPS50A Standard rarallel («o Cabtel »249.95 

CP-550CO Commodorr iDirecl Connect) t259.9S 

CF-S50AT AUri IDirecl Cannrct). f 259.95 

CFSaOAF Apple H or lie iDirrcl ConnecO »299.9S 

CP-550PC IBM PC * CompatMbles mo Cable)... tl59.3S 

CP-SSOn TI99/4A (Direct Connecll »299.95 

fricex Be Availability Subject to Char\ge. CALU 

.Shipping is $8.00 - UPS within the continen- 
tal USA. If you are in a hurry, UPS Blue (second 
day air) is $18.00. Canada. Alaska. Mexico are 
$25.00 (air). Other foreign is $60.0O (air). 
California residents add 6% tax. These are 
cash prices - VISA and NC add 3% to total. We 
ship the next business day on money orders, 
cashiers' checks, and charge cards. A 14-day 
clearing period is required for checks. 

TO ORDER CALL TOLL FREE 

1-(800) 962-5800 USA 
OR 1-(800) 962-3800 CAUF. 

or send payment to: 

APROPOS TECHNOLOGY 

1071 -A Avenida Acaso 
Camafillo, CA 9301 

Technical Info: 1-(805l 482-3604 

©1984 APROPOS TECHNOLOGY 



modify it. and write it back to any 
sector on the disk. 

• A flic utility which allow.s for 
locking and unkx-king files (prevents 
inadvcitant scratching), and renam- 
ing and copying of program files. 

Overall, a rather nice collection of 
utilities to have in one place. 

ML MONITOR 

The FciM UkuI cartridge includes 
a machine language monitor. This 
program provides a lull range of ma- 
chine cixie disa.s.scmbly and memory 
display modes, access to the disk di- 
rectory and command channel, and 
both relocating and non-relocating 
binary LOADs. A full array of logi- 
cal and arithmetic operators are 
available for ea,sy calculation of per- 
tinent parameters. Hexadecimal, dec- 
imal, binary, and ASCII conversion 
are built in. About the only thing 
lacking is the customary single-line 
mini assembler. 

A COUPLE OF QUIRKS 

We noticed some additional oddi- 



ties worth passing on to the poten- 
tial user. Executing a call to the C-64 
reset vector (SYS 64738) restores the 
C-64 to the power-up state as if the 
Fast Loud cartridge were not there. 
Resetting via a hardware reset but- 
ton brings the Fast Local cartridge 
back online. The Fast U>ad cartridge 
may also be disabled via a command 
from the built-in Disk Tool utility. 

A GOOD RETURN 

The Fast Load cartridge offers a 
wide array of features in a compact 
package. The operation is surprising- 
ly transparent to all the forms of 
commercial copy protection we have 
looked at. For the few exceptions. 
Fast L)ud may be totally disabled via 
the built-in soft switch without phys- 
ically removing the cartridge. Over- 
all, ii may not be the fastest disk 
speedup utility, but it certainly offers 
a good return for the dollar. D 

CONCLUSIONS 

Of the three products we looked 
at. the Skyles Flash should provide 



the greatest overall improvement in 
disk handling with the 1541 disk 
drive. This is a direct result of ap- 
plying the speedup routines to all disk 
operations under all operating condi- 
tions. If you can handle the relative- 
ly complex installation, then the 
Flash will significantly cut down on 
time spent waiting for the drive. 

In terms of greatest convenience 
and utility, we place our bets on the 
Epyx Fa.st Load, The cartridge for- 
mat makes for fast and foolproof in- 
.stailation as well as portability. As 
with the Fla.sh. it is instantly avail- 
able on power up. It also has the wid- 
e.st selection of built-in support util- 
ities. Advanced users will be pleased 
by the instant availability of the pow- 
erful ML monitor. 

The Knik-Load! package offers a 
g(Kxl value. The disk copy and back- 
up utilities win the prize for speed. 
Given the low cost, you may just not 
want to pass this one up. D 
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& ' COMiMODOIIE-64 



5DFTliJflRE-DF-THEmaNTH CLUB'^ 



(division ol OCS . /rtCJ 

We guarantee you'll never againbuy useless software for 
your personal computer. 

CLUB MEMBERSHIP OFFERS BIG SAVINGS 
♦ ♦ NO OBLIGATIONS ♦ ♦ 



Wlitn yeu (nroll yon will 

• K*«p only lh« atinwar* thai you can 
us«. Examin* lor a full 10 diya; II I1'« 
not what you want, ratjrn it <or a lull 
rtfund. 

• Racalva diacounit up to 30% on your 
aoftwar* cholcat. 



B« allglbt* for our Bonua PoinI Plan — 
additional dticounii appllad toward 
purchaaaa. 

Racalva our Intormatlv* monthly n«w*- 
lattar full ot halpful bp< lor gatUng iha 
moat from your Commo(Jora'64. 
Rtcalv* notica of Special Safei whara 
you'll aav* a* much aa SD% off iltl- 



Th» Sottw«/a-or-(/ie-Month Club Is Unique. 
No mlnlmuin purchatai are required — no automatic thipmentt to you- 



Enroll now and receive abtolulaly Irae Public Domain Software. 
Please check C Casaetta D Oltk 



QAEAT IDEA! I can'1 k»a. Enroll ma now In tha SoRwart-ol-tlw-Montti Club. I 
undenund th*r« li no olillaatiDn. EncIOKd It my SID mambarihlp f**. 



Mam. 


rhack Moflvy Order BanK Card 




jUdrwt 






atvStmtmlZIp 


visniuc.ir 


Fanitminn tlatt^ 




Kirjnuhiiit 




Cut out and mail today lo 






SOfTWAne-OfTHE-MOmH CLUB 

Ohio Compular Sarvlm. Inc. 

P.O. Boi 1!«7J3 

Cincinnati. Ohio 4S212 
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EPILOGUE 

Not being content lo leave well enough alone, we pre- 
sent some last-minute updates on the Skyles Flash and 
the Epyx Fast Load cartridge. This information came 
to us just before we went to press on this issue. 

THE 1541 FLASH 

Skyles has indicated that the latest version of the 
Flash will include a defeat switch for the disk drive as 
well as the computer. This allows the Flash to be com- 
pletely disconnected from the system. The price of the 
new unit will be $99. Present users may upgrade for 
$15 plus $3.50 shipping and handling. Work is nearly 
complete on a two disk version of the Flash which will 
sell for $139.95 ($49.95 for the upgrade). We hope to 
report on this when it comes available. 

FAST LOAD 

A second sample of the Epyx Fast Load cartridge 
appeared unannounced upon our doorstep. Although all 
external indications appeared identical to our first sam- 
ple, we gave it a try. Much to our surprise, we found 
some subtle improvements. This latest revision prop- 
erly handles the LOAD"$".8 command we discussed 
earlier. Epyx is apparently busy .swatting bugs as fast 
as they find out about them. This latest version of Fast 
Load brings the count up to three revisions which we 
know about. At this rate, the product should be well 
in hand by the time you read this report. 
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A DISK OPERATING SYSTEM 
ENHANCEMENT UTILITY 




he 1541 (or compatible) disk drive offers sig- 
nificanl advantages over cassette as a storage 
niedium. random access and speed of access 
being but two such. When you first purchased 
your drive unit you most likely realized a leap in your 
productivity and programming throughput. However, 
you soon came to see that although the 1541 allows you 
to harness some of the power of the Commodore 64, 
it can be cumbersome to use. Many programmers have 
set out to help rectify this by designing various utilities 
that make using a disk drive easier. While these solve 
.some of the difficulties of disk drive usage, they create 
another problem: you end up with a disk full of pro- 
grams, one to do single-file copies, another to li.st the 
directory, another that allows you to 'unscratch' a file. 
and .still another to find the load address of a file. Whew! 
Are things really easier now? 

I thought not -so I sat down, and after a little head 
scratching came up with Dos Plus. Dos Plus gives you 
a powerful set of tools with which you can better man- 
age your 1541 disk drive. The real power of Dav Plus 
is that you needn't keep an arsenal of utilities on disk 
waiting to be used. Dos Plus is in itself just such an ar- 
.senai. You need only load it once. It will tuck itself away 
above BASIC memory and wait patiently for your com- 
mands. 

First type in DOS Bool (see page 98) and save it to 
disk. Then, using the Flankspeed program on page 86, 
type in and save DOS Plus. Then type NEW, and load 
and run DOS Boot. 

DOS Bool will also let you change certain default pa- 
rameters of your copy of Dos Plus. More on that later 
in this article. 

You now have an error-free working copy of Dav Plus. 
But what exactly do you have? Let's see. First, list the 
directory by typing '@S'. Dav Plus gives much useful 
information here. The load address of the program is 
li.sted to the right of your screen in hex and decimal. 
Block count is given, as in other Wedge programs. If 
your disk contains deleted files they will be listed as such, 
with a "DEL' signifying the fact. You may abort the list- 
ing of a directory by holding down the RUN/STOP key. 
You may have to hold this key until it 'catches.' becau.se 
the keyboard is polled between accesses to disk. Like- 
wise, the space bar will pause a listing, with any other 
key cancelling the pau.se function. Again, you will have 
to hold the space bar until the pause takes effect. If you 
wish to list the directory directly to a printer on the serial 
port, hit the f I or 13 keys before you issue the @$ com- 



mand. If your printer answers to device number 4. use 
the f I key. If your printer answers to device number 
5, use the 13 key. Be careful that you use the correct 
key for your primer. If the computer attempts to open 
a channel to a non-existent device, the program will 
*hang.' You can recover from this only by using the 
RUN/STOP-RESTORE combination. If you accidentally 
press f 1 or 13 or wish to cancel a dump to the printer, 
POKE 923,0 to cancel the dump flag. The dump to print- 
er function is automatically cancelled after the dump is 
completed or. alternately, if you abort the total listing 
of the directory with the RUN/STOP key. 
Let's try another tool. Type the following: 

@:D18,l <RETURN> 

This is the SECTOR DUMP/MODIFY command. Mag- 
ically, the first sector of the disk directory is listed to 
the screen. You may use the cursor keys to move the 
cursor to any position within the block. If you make any 
changes to the block, the entire block will be rewritten 
to disk as modified. If you accidentally enter an invalid 
digit, i.e.. OZ or P8, the rewrite feature will abort. You 
can use this command structure to do many things. You 
can unscratch a file by changing the third byte preced- 
ing the first character of a filename from 00 to 82. The 
unscratch will be successful only if no saves were made 
to disk after the file was scratched. This feature is pri- 
marily useful when you inadvertently scratch a file. Al- 
ternately, you might wish to change a sequential file to 
a program file or a user file to a sequential file. You 
should not make changes concerning relative files. A 
sector, or block, can be dumped directly to your print- 
er in the .same manner as described for directory list- 
ings to printer. Again, make use of the fl/t3 keys prior 
to issuing the @:D command. After the printer dump 
is complete, the sector will be listed to the screen where 
you may nxxlify it or exit by pressing RETURN. I would 
advise that you practice using the @:D function on an 
expendable disk. This function is very pt>werful and can 
generate disastrous results if used carelessly. 
This one you've already used: 

(3 : [ BACK ARROW ] ' FILENAME ' , $<START ADDRESS> 
,$<END ADDRESS+1> 

You use this command structure to save a file from other 

Continued on page 61 
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COMMODORE 64 



with $19.95 Software Purchase 



COMPUTER AND SOFTWARE 



139 



OO' 



• 170K Disk Drive $T49.00 * 

• Tractor Friction Printer $H9.00 

• T3" Hi-Res Color Monitor $164.00 * 

* See Page 13 



■ COMMODORE M COMPUTER t139.00 

rou poy only SI39.00 (milh ihe SI' 95 sollwore 
pufchose see below] when you order rhe powerful 
8JK COMMODORE W COMPUTfR' lESS Ihe volue ol 
<he 5PECIAL SOFTWARE DISCOUNT COUPON «e pack 
wilh your computer thot allows you to SAVE OVER 
S500 oil 40*1wore sole prices' ' Wah only SlOO of 
savings appliecf your net computer cost is S39.00* ' 

• 170K DISK DRIVE St44.«0 

You poy only SM9 OO (wilh the S19 95 iollwofe 
purcfiose see beiow} wfien you order the 1 70K Disk 
Drtvei lESS the value ol ihe SPECIAL SOFTWARE 
DISCOUNT COUPON me pack wilh your disk drive thai 
allows you lo SAVE OVER SSOO off software sole 
prices' i With only SlOO of savings applied your nel 
disk drive cost is$a9,00 

* 13" HI-RES COLOR MONITOR «1«4.00 

Yau poy only Sie9.00 (with the $19.95 software 
purchase see below) when you order this 13" COiOR 
MONITOR with sharper ond cleorer resolution iKon 
ony other cofor monitors we Kove tested' LESS volue 
of Ihe SPECIAL SOFTWARE DISCOUNT COUPON we 
pack with your monitor thot ollaws you to sovc over 
SSOO oM software sole prices" Wilh only SlOO of 
sovings applied your net color monrtor cost is only 
$89.00, (liColorsi- 

•0 COLUMN SO CPS 
TRACTION/FRICTION PRINTER tUt.OO 

You poy only SI69.00 when you order the Comstar 1 F 
deluxe line prmter that prints 6' r xl 1 full size, single 
sheei roll or fan (old paper labels, etc. Irnpoct dot 
matrix bidirectional- LESS the volue ot the SPECIAL 
SOFTWARE DISCOUNT COUPON we pock with your 
printer that ollows you to SAVE OVER SSOO oil 
softwore sole prices' ' With only SlOO ol savings 
applied your net printer cost is only S69.0O. 

U COLUMN BOARD tTt.OO 

Now you program 60 COLUMNS on ihe screen 01 one 
time* Converts your Commodore 6^ to 80 COLUMNS 
when you plug in the 80 COLUMN EXPANSION 
BOARD!' PLUS i slot e«pander' Con use with most 
software 

U COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR SJt.OO 

This EXECUtlVt WORD PROCESSOR is the finesi 
ovailobie for the COMMODORE 64 computeri The 
ULTIMATE FOR PROFESSIONAL Word Processing, 
DISPLAYS 40 or 80 COLUMNS IN COLOR Ot black ond 
while' Simple to operote powerful text editing with 
250 WORD DICTIONARY complete cursor ond 
insert delete key controls line and porograph 
msertion automatic deletion, cenlering. margin 
settings ond output to oil printers! Includes 
powerful mail merge 
List S99,00 SALE S3I.H Coupon 529,95 



SALE 



SUPER AUTO COM 
DIAL MODEM ^4 



CALL 
BEFORE 

YOU 
ORDER 



PRICES 
MAY 
BE 
LOWER 



(Best communications pactcoge in USA) 



SPECIAL SOFTWARE COUPON 



poch a SPECIAL SOFTWARE DISKCOUNll 
■coupon witfi every COMMODORE A4| 

■computer, disk drive, printer. 

■monitor we ielll This coupon allows you tol 
|SAVE OVER ilOO OFF SALE PRICES!! 

(Example*) 

PROFESSIONAL SOFTWARE 

COMMODORE 64 



Nom* 


lUt 


$al« 


Coupon 


t.ecutive Word Processor 


S19 oo 


539 00 


529 95 


Executive Onto Bose 


S69 00 


539 00 


519 95 


JDOOOWord Dictionary 


S?4 95 


514 95 


510 00 


Electronic Spread Sheet 


SS9,9S 


S«9 00 


539 00 


Accounting Pock 


5<9 00 


539 00 


539 00 


Proclicfllr 


S59 91 


S3J 95 


539 95 


Programmers Reference 


ilO 9S 


SI6 95 


513 50 


Guide 








Pfuijiammeii Helper 


S59 9S 


S29 95 


519 95 


SO Column Screen [Otsk; 


559 95 


519 95 


519 95 


Disk filer (by Flip H file) 


539 95 


514.95 


512 95 


OeJuMe lope Cassetle 


589 00 


544 95 


S34 95 


Pro J&y Stlc^^ 


519 95 


513 95 


510 00 


Light Pen 


139 95 


514 95 


S 9 95 


Dust Cover 


5 B 95 


5 * 95 


5 4,40 


Simon s Basic 


539 95 


533 95 


519 95 


Pltstop II £pyM 


539,95 


534 95 


519 95 


Super Grophics E«pander 


539,95 


523 95 


519.95 


Music Cole 1 


559,95 


539,95 


534 95 


FilewiTei 


559,95 


S39 9S 


534 95 



I (See over 100 coupon items in our calalogi 

Write or call for 

Sample SPECIAL SOFTWARE COUPON! 



EXECUTIVE QUALtrr 

PROFESSIONAL BUSINESS SOFTWARE 

The Cadillac of Businetf Progromi 

for Commodore 64 Compulert 



Itam 

tnvenlory Monagemei 
Accounts Receivable 
Accounts Payable 
Payroll 
Oenerol Ledger 



579 95 
579 95 
579 95 
579 95 
579 95 



■ Sol* 

539,95 
129,95 
539 95 
539 95 
539 95 



Cvwpon 
S34 95 
534 95 
534 95 
534 95 
534 95 



The S19,9S Software Purchase Options 



i 34 Progrom Bonus Pack ^lope or diski 

3 Oi3 Borrons Sirafegy Board Game 

3 Disk Drive Cleoner 

4 HES Games (disk I 

5 Pogo Joe : lope 01 disk) 



LIST 
539 95 
549 95 
539 95 
539 95 
539 05 



SALE 
I1«.9i 
111.95 
119.93 
■ 11.95 
S11.9S 




• Computer Learning Pad S37.9S 

• New Voice Synthesixer S49.00 

• 12" Green or Amber Monitor S79.4S 

• 12" Daisy Wheet Printer $199.00 



SUPER AUTO DIAL MODEM iSf .00 

Eosy lo use Just plug into your Commodore 64 
computer ond you re reody to tronimit ond receive 
messoges Eoiier to use than diqting your telephone 
ju&l push one key on your computer' Includes 
exclusive eosy lo use progrom for up ond down 
looding to printer ond disk drives 
List S134 00 SALE IS4.04I 

NEW COMPUTER LEARNING PAD S37.tS 

Wokes other graphics toblets obsolete This new TECH 
SKETCH LEARNING PAD ollows you to drav. on your 
I.V. or Monitor and then you con print whalever you 
drow on the screen or> your printers FANTASTIC" ' 
List S79.9S SALE tJT.tl 

NEW VOICE SYNTHESIZER S44.00 

For Cam-64 or VIC 20 computers Jusi p^ug it in ond 
you con progrom words ond sentences ad)USt volume 
Ond pitch, moke talking odventure gomes sound 
OCtion gomes and cuslomiied talkies'* FOR ONLY 
519,95 you con odd TEXT TO SPEECH |usi type o word 
ond hear your computer talk ADD SOUND ID 
Zork' SCOTT ADAMS AND AARDVARK ADVENTURE 
GAMES" (Disk or tape ) 

11" GRf EN OR AMBER MONITOR S7t.«5 

Vour choice ol green or omber screen monitor lop 
quolity. 60 columns x 24 lines eosy to read onti 
glore' PLUS S9 95 for connecting cable. Com 64 or 
VIC 20 

12 ' DAISY WHEEL PRINTER }1t«.00 
"JUKI" Superb letter quohty daisy wheel printer 12 
extra lorge corrioge, up lo 12 CPS bidirectional 
printing, drop in cossette ribbon. Centronics parallel 
or RS232 seriol port built in' (Specify) 
lisl S299,00 SALE H«.M 

CAR0COG+ INTERFACE tS4.00 

For Commodore 64 ond Vic 20 computers. Lets you use 
Other printers wilh Cenlronics interfoces. This 
inierfoce lets the printer oct like a Commodore printer 
including printing the Commodore graphics IDoi 
matrix with graphic copobility printers). 
' List $109,00 SALE (Jt.M 

PROTECTO WARRANTY 

All Protecto s procjucis corry o minimum 90 day 
warronfy. Therefore, it anything foils within 90 
doy5 from the dote of purchose, you simply 
send your product to us via LInited Parcel 
Service prepaid. We will IMMEDIATELY send 
you a replacement ot no charge via United 
Porcel Service prepaid. This warranty proves 
once ogoin that We Lowe Our^Cuttomart 



» 



• LOWEST PRICES • IS DAY FREE TRIAL 

• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL 



PHONE ORDERS 

8 o, rn . ■ 8 p. m . Weekdoys 
9 a.m. ■ 12 noon Soturdoys 



• 90 DAY FREE REPLACEMENT WARRANTY 
• OVER 500 PROGRAMS • FREE CATALOGS 



Add S10,00 for shipping, hondling ond iosuronce. Illinois residents 
please add 6% lox. Add S20.00 lor CANADA. PUERTO RICO, HAWAII, 
ALASKA. APO-fPO orders. Canodion orders must be in U.S. doltars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Coshiers Check, Money Order or Personal Check. Allow U 
days tor delivery, 2 to 7 doys for phone orders 1 day express moil ' 
VISA MASTERCARD — CO 0, No COD to Conodo APO FPO 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 
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LOOK AT ALL YOU GET FOR ONLY ^ X^S* 

® Bl 28 COMMODORE 1 28K 80 COLUMN COMPUTER 
@ 4023 ' 100 CPS - 80 COLUMN BIDIRECTIONAL PRINTER 
@ 8050 DUAL DISK DRIVE (over T million bytes) 
(J) 1 2" HI RESOLUTION 80 COLUMN MONITOR 

• BOX OF 10 LORAN LIFETIME GUARANTEED DISKS 

• 1 100 SHEETS FANFOLD PAPER 

• ALL CABLES NEEDED FOR INTERFACING 

TOTAL LIST PRICE 
PLUS YOU CAN ORDER THESE BUSINESS PROGRAMS AT SALE PRICES 



Progrommers 

Reference 

Guide 

list S29.95 

Sale $34.9S 



Professionol 80 Column 

Word Processor SM9.95 

Professionol Doto Base SI 49.95 

Accounts Receivobte $149.95 

Accounts Payable 5149.95 



SALE 



$99.00 
$99.00 
199.00 
(99.00 



SrSTiM 
PBICE' 
f 49.00 
$49.00 



Payroll 
Inventory 
General Ledger 
Finonciol Spread Sheet 
Order Entry 



LIST 
SI 49.95 
SI 49.95 
$149.95 
S149.95 
5149.95 



SALE 
$99.00 
$94.00 
$99.00 
$99.00 
$99.00 



When Bought 
with B128 
Computer 
Systenn. 



i, PRINTER REPLACEMENT OPTIONS 

(replace the 4023 with the following printers at these 
sole prices. Interface Included) 



Olympia Executive Letter Quality Printer 
Comstor Hi-Speed 160 CPS 15Vj" Business Printer 
Telecommunicotions Deluxe Modem Package 
IEEE to Centronics Parallel Printer Interface 



LIST SALE 

S699.00 $369,00 

5779.00 $4S9.00 

5199.00 $139.00 

5179.00 $139.00 



IS DAY FREE TRIAL, We give you 15 days to try out this SUPER SYSTEM PACKAGE! ! If it doesn't meet your expectations, just send it back 
to us prepaid and we will refund your purchase price I I 

90 DAY IMMEDIATE REPLACEMENT WARRANTY. If ony of the SUPER SYSTEM PACKAGE equipment or programs fail due to foolty 
workmanship or moteriol we will reploce it IMMEDIATELY with no service charge! ! 



Add $50.00 for shipping and handlingl! 

WE DO NOT SHIP THIS SYSTEM TO FOREIGN COUNTRIES. 
CANADA PUERTO RICA, ALASKA. OR HAWAII. 
Enciose Castneri Cl*eck Money Order or Pergonal C*ietk. Allow Id days tor 
delivery. 2 (o 7 doyi to' ptione orders. I doy express moil' We occept Viso 
ond MoilerCord. We stiip C.O.D »o tonlinenlol U.S. oddresses only. 



ENTERPRIZES « °'° "="^°"'"= 

BOX S50. BARRINQTON, ILLINOIS 90010 
Phont 312/3B2 &244 lo ordtr 
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FANTASTIC PRINTER 
^24'' SALE!! ^24'' 

CammadarG 64 — VIC 20 — A fari 

tt 40 And 80 Column Printers ^ Up To 100 Characters Per Second ^ Full Graphics Capability 
ii Upper And Lower Case ii AdvancedThermalTechnology For Quiet Operation 




3150 Alphacom 81-100 CPS 80 Column Printer 

Now you can have a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter. 
With the intelligent interfaces (sold below) you 
can do Ascii graphics as well as Atari or 
Commodore graphics. Plus you can do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect for the student or 
homeowner. List $199.00. Sale $39.95. 

80 Column Extra Paper LIST SALE 

3153 40 Meter Rolls Blue $14.95 $3.95 

3154 40 Meter Rolls Black 519.95 $4.95 

3155 25 Meter Rolls Blue (2 per pkg.) S19.95 $7.95 

3156 25 Meter Rolls Block (2 per pkg.) $19.95 $8.95 



3100 Alphacom 42<80 CPS 40 Column Printer 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower cose. Comes with a roil of 
paper and all power adapters needed. Perfect 
for spare printer or program lister. List $99.00. 
Sale $24.95. 

40 Column Extra Paper LIST SALE 

3103 25 Meter Roils Blue $9.95 $3.00 

3104 40 Meter Rolls Blue $16.95 $3.95 

3105 25 Meter Rolls Black (1 per pkg.) $12.95 $3.95 

3106 25 Meter Rolls Blue (2 per pkg.) $19.95 $5.95 

3107 25 Meter Rolls Black (2 per pkg.) $19.95 $5.95 




3101 Intelligent Commodore interface — Allows you to 
hook the 40 or 80 column printer to the Commodore 64, do 
program listings, allows softwore screen dumps, etc. 
Includes Commodore graphics and reverse choracters. 
(Specify 40 or 80 Column) List $59.95. 
40 Column Sole $9.95. 80 Column Sale $14.95. 



Add StO.OO for shipping, hondling ond insurance Illinois residents 
please odd 6'/. io«. Add S20.00 lor CANADA PUERTO RICO, HAWAII. 
ALASKA. APO-FPO orders. Conadian orders must be in U.S. dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Coshiers Check. Money Order or Personol Check. Allow H 
days tor delivery. 2 to 7 days lor phone orders. 1 day eicpress moil ! 
VISA — MASTERCARD - COD NoC.O D to Canada. APOFPO 



3102 intelligent Atari interface — Allows you to hook 
the 40 or 80 column printer to the Atari computer, do 
progrom listings, allows software screen dumps, etc. 
Includes Atori graphics and reverse charocters. (Specify 40 
or 80 Column) List S59.95, 
40 Column Sale $9.95. 80 Column Sale $14.95. 



We Love Our Customers 

Box 550, Borrington, Illinois 60010 

312/382-5244 to order 
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FANTASTIC COMPUTER PRINTER SALE!!! 



COMSTAR T/F 

Tractor 
Friction 
Printer 




** 



lk«iiiiiiMA!ii 



COMSTAR 



• Lowest Priced, Best Quality, Tractor-Friction Printers in itie U.S.A. 

• Fast 80-120-160 Characters Per Second • 40, 46, 66, 80. 96, 132 Characters Per Line Spacing 

• Word Processing • Print Labels, Letters, Graphs and Tables • List Your Programs 

• Print Out Data from Modem Services • "The Most Important Accessory tor Your Computer" 



♦♦DELUXE COMSTAR T/F 
80 CPS Printer $169.00 

This COMSTAR T/F (Tractor Friction I 
PRINTER is exceptionally versatile. It 
prints 8»/4" x 11" standard size single sheet 
stationery or continuous feed computer 
paper. Bl-directlonal, impact dot matrix, 
80 CPS, 224 characters. (Centronics 
Parallel Interface). 

Premium Quality 120140 CPS 
lOX CO.M STAR PLUS + Printer$199 

The COMSTAR PLUS + gives you all the 
features of the COMSTAR T/F PRINTER 
plus a 10" carriage, 120-140 CPS, 9 x 9 dot 
matrix with double strike capability for 18 
X 18 dot matrix (near letter quality), high 
resolution bit image ( 120 x 144 dot matrix ) , 
underlining, back spacing, true lower 
descenders with super & subscripts, prints 
standard, italic, block graphics & special 
characters. It gives you print quality and 
features found on printers costing twice as 
much!! (Centronics Parallel Interface) 
(Better than Epson FX80). RATED 
"BEST BUY" BY CONSUMERS DIGEST 
BUYERS GUIDE, JANUARY 1985! List 
S499.00. Sale $199.00. 



Premium Quality 120140 CPS 

ISi/jX COM STAR PLUS + 

Business Printer $319.00 

Has all the features of the 10" COMSTAR 
PLUS+ PRINTER plus 15W carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 
100). List $599. Sale$.tI».0O. 

Superior Quality 

151/2" COM-STAR PLUS -(- U.S. 

High Speed 160-180 CPS 

Business Printer $449.00 

151,4" Carriage and more powerful 
electronic components to handle larger 
ledger business forms! (Serial Centronics 
Parallel Interface). List J799. Sale S.449. 

12" OAISY WHEEL 
PRINTER $199.00 

"JUKI" Superb letter quality daisy wheel 
printer, 12" extra large carriage, up to 
12CPS bi-directional printing, drop-in 
cassette ribbon, (90 day warranty) 
Centronics parallel or RS232 serial port 
built in! (Specify). List $299.00. Sale 
$199.00. 



Superior Quality 

10"COM-STAR+ H.S. 

HIGH SPEED 160-180 CPS 

Business Printer $M9.00 

This Super High Speed Corn-Star -t- 

Business Printer has all the features of the 

lO" COMSTAR^- PRINTER with HIGH 

SPEED BUSINESS PRINTING 160-180 

CPS, 100% duty cycle, 8K Buffer, diverse 

character fonts, special symbols and true 

descenders, vertical and horizontal tabs. A 

RED HOT BUSINESS PRINTER at an 

unbelievable low price (Serial or 

Centronics Parallel Interface). List 

$699.00. Sale $349.00. 

Printer/Typewriter 
Combination $^9.00 
"JUKI" Superb letter quality, daisy wheel 
printer/typewriter combination. Two 
machines in one — just a flick of the 
switch. 12" extra large carriage, 
typewriter keyboard, automatic margin 
control and relocate key drop in cassette 
ribbon! (90 day warranty) Centronics 
parallel or RS232 serial port built in 
(Specify ) . List $399.00. $249.00. 



• J 5 Day Free Trial — 1 Year Immediate Replacement Warrant 



■PARALLEL INTERFACES- 



For VIC-20 and COM-64 — $49.00. Commodore B-ias - $139.00. Apple — $79.00. Atari - $79.00. 



Add Sill 50 (o' ihipping hdndling ond tniu'onc* INinpit ratidtnli 
pl»ai*pdd6% lOM AddS29 00 tor CANADA ^UMTO KICO HAWAII 
ALASKA APO-fPO ord«rt Canodion ord»ri muK b« m US dollori 
WE DO NOT (XP»«T TO OTH€« COUNTtlli 

Enclo» Coihi«ft Ch«k Monty Ofd»' or Porionol Ch«tk Allow U 
doyi tor d«liv»ry J 1o 7 dof • lof phono ordort. 1 dof oiproii mail ' 
VISA-MASTER CARD-We Smp COD 10 U S Aodresses Only 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 



COM.-STAR PLUS+ 
Print Example: 



ABCDEF-GH XaKI-MNORORl 

AKDEFGHIJKLMNOPQRaTUVMXYt 1 2 



IXUVMXVZ 
17090 
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J I SALE ^ 1 n. 

Premium Quality Fioppy Disics 



r 







20 



2D 









20 



Box of 10 with hub rings, sleeves and labels 

Famous Brand FUJI Floppy Disks for those who care about keeping their data. 

List $39.95 

Single Sided — Double Density Cfllp %\A QA 



* $12.95 ^ ^ Flip-N-File i^ i^ ic $|2.95 

Da to -Co. 




Fioppy Disk Filer 

Every onB Needs a Floppy Disk Secretary 

Facts: 

• Dust and Dirt particles can hurt your disks 

• Most disks go bod due to mishandling in storage 

• Proper filing of your disk collection will reduce 
unnecessary handling of your disks 

The Floppy Disk Filer is an inexpensive hard plastic Fliptop case that will oilow for easy filing, and protect 
your disks from dust, smoke, and dirt. Plus, the Floppy Disk Filer will keep all your disks out of unwanted 
hands and in one piece where you can easily find them. (Holds Over 50 Disks) 



List $24.95 



Introductory Sale Price $14.95 



* Coupon $12.95 



Add S3 00 ^or shipping handling and insurance flhnois reiidenrs 
piMl* odd A*, ton Add $6 00 for CANADA PUERTO RICO HAWAII 
AlASKA APOFPO ordefi Conadian orders musi be m U 5 dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES 

ErKlos* Cashi«r$ Che<k Monty Ordor or Personol Check Allow 14 
doys for d»liv«ry 7 ro 7 days for phone orders I doy express maiM 
VtSA MASTERCARD COD 

NoC O D foConodo APO FPO 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 
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Commodore 64 

MODEM 




List $129.95 




L o v\/Gst^rif^ I ry^ffte £/>^ A, 



$59 

List $129.95 



FOR CHILDREN-ADULTS- BUSINESS 



Complete Auto Dial 
TelecomniMnications Package 

"The only telecommunications pacltage you will eirer need* 

(Exclusive Easy To Use Features) 

-^•^-«- Total -*-r»^ 
Telecommunications 

• 300 Baud Modem * Auto Dial * Auto Answer * Upload & Download 
• Membership in 52 Database Services (UPI News, etc.) 

Reach Out and Access Someone 



ft 





• Educational courses 

• Financial Information 

• Banking at Home 



• Populor Games 



• News Updates and Information 

• Electronic Shopping 

• Research and Reference Materials 



The Total Telecommonications Package offers you all this plus ... 

• Auto Log-on 

• Dioling from Keyboard 

• On-line Clock 

• Capture ond Display High Resolution Characters 

• Download Text, Program or Data Files 



• Stores on Disk Downloaded Files 

• Reads Files from Disk and Uploads Text or Progrom Fifes 

• Select Any Protocol (occess almost any computer or modem) 

• Plus Much, Much More 



List $129.95 



Special Low-Low Price 



59 



oo 



We are so sure this is the only telecommunications package you will need we will give you T5 days Free Trial. 



Add S3 00 for shipping, handling ond insurance. Illinois residents 
pleose odd 6% tox- Add S6.00 lor CANADA. PUERTO RICO, HAWAII. 
ALASKA. APO-FPO orders. Conadion orders must be in U.S. dollors. 
WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personol Check. Allow 14 
doys lor delivery, 2 to 7 doys (of phone orders. 1 day express nnail ! 
VISA - MASTER CARD - COD. 

No C.O.D. to Conodo. APO-FPO, 



We Liove Our Customers 

Box 550, Borrington, Illinois 60010 

312/382-5244 to order 
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This advertisement has been written by indepen- 
dent reviewers of Commodore computer products. 
We thank them for their frankness and the high marks 
awarded to the Skytes Electric Works 1541 FLASH!. 



The Reviewers Comment 



"Tired of that slow disk drive? The solution is here, 
and it costs about $90. Considering what it does, the 
price is a bargain! It speeds up your 1541 disk drive 
200%-300% . And if you write your own software 
specially for the FLASH!, you can achieve speed 
increases of 600%! 

The 1541 FLASH! is the best! It's better than 
KWIK LOAD.'" And better than 1541 Express."* 

Does it sound too good to be true? Do you suspect 
there must be some drawback that I haven't men- 
tioned? Well . . .There is one. You have to open up 
your keyboard and 1541 drive and do a little work 
inside them. You need to replace a couple of chips 
with new ones provided by the FLASH!. And an extra 
cable will run from your keyboard's user port to your 
1541 drive. But the installation is explained in 
complete detail with pictures. It's a simple operation 
that will take under 30 minutes. And in return you 
will have a disk drive that literally races along! 

The biggest complaint with the Commodore 64 is 

the slow disk drive. No more! You will never be 

willing to go back after having used the 1541 FLASH!. 

It really spoils you! It's even faster than a parallel 

drive with an IEEE interface! Don't be afraid of the 

installation. It's really simple. And if you prefer not to 

do it yourself, your local user's group probably has 

people with the ability to install it for you. You'll be 

eladvoudid!" . 

^ •' TheNorthivest Users Guide, fail. 7985 

"A tiny wedge is included . . . you simply SYS65526 
to enable it. Those who enjoy using the wedge as part 
of their normal computer will like this feature. 

The utilities added by FLASH! include single, 
double and simultaneous keystroke implementation 
of such niceties as delete line, escape quote, cursor to 
bottom of screen, 16 character tab, and return without 
line execution. 



My children have played some of their favorite 
games and used utilities or educational software 
without any problems whatsoever, using the 1541 
FLASH! All in all, this device will save the purchaser 
much of the frustration normally experienced, as well 
as the time required in normal disk drive-computer 
interactions. With the above noted exception, I'm 
very pleased with its operation, and won't hesitate to 
recommend it to those who would like faster loads 
and saves or want additional flexibility and power at a 
moderate price." RUN. May 1985 

"Having used 1541 FLASH! for several days, 
already 1 can't bear to go back to a slow 1541 . It's 
amazing how quickly you can get spoiled by a luxury 
like this. More than a few editors here have cast covet- 
ous eyes on the upgraded 64/1541 , And the price is 
reasonable for such a dramatic enhancement. After 
reading the installation description above, you can 
decide if you're up to opening your equipment, yank- 
ing out chips, and enjoying a 300% speedup." 

CompuleVs Gazelle, Jan. 2985 



Commercial Details 

1541 FLASH! $ sg.gs- 

1541 FLASH! with Disk Switchboard 99.00* 

1541 FLASH! for Two Drives 139.95* 

1541 FLASH! forSX-64 99.95» 

1541 FLASH! for MSD Drives tba* 

•Mail ordiT please add $3.50 for shipping and handling, 
California residents add sales tax as re<)uir«d. 

Available from your local Commodore 
dealer or call 1-800-227-9998 

ni Slwles Electric Works 

injT 231 E South Whisman Road 
Mountain View, CA 94041 
1-(415) 965-1735 

154 1 FLASH! is a Iradcmark of Skyli-s EIrcCric Works. 
Commodore M is d Iradt'mark (i J Comitiodurf 
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The Binary, Hexadecimal, and Decimal Notation Systems 

By Mark Andrews 



I hree kinds of number systems are commonly 
I used in assembly language programming. 
' They arc: 

(1 ) Deciiiicil numbers, based on the value 

10 and wrillen using the Arabic numerals through 9. 

(2) Binary iiiimhcrs, based on the value 2 and usualy 
written using the Arabic numerals and I . 

{3) Hexiuk'cimat numbers, based on the value 16 and 
customarily written using the Arabic numbers through 
9. plus the letters A through F. The digits 1 through 9 
are used just as in conventional decimal notation, and 
the letters A through F as single-unit symbols for the 
values 10 through 15. 

Decimal numbers are what most of us learned in schcx>l 
.so not much will be said about them. Instead, we'll fo- 
cus on the binary and hexadecimal number systems. Let's 
start with binary numbers. 

The ones and zeroes that make up binary numbers are 
known as bits. A series of four bits is called a nibble 
(or nybhk), a series of eight bits is called a byte, and 
a series of 16 bits is called a word. 

PENGUIN MATH 

The best way to explain the principles of the binary 
system is with something I call Penguin Math. Penguin 
Math is the number system that penguins would probab- 
ly use if penguins could use numbers. 

Imagine that you're a penguin. You wouldn't have 10 
fingers on each hand, so there'd be no way you could 
count on your fingers. You'd have just two flippers, and 
if you wanted to count on something, you'd have to count 
on them. 

Suppose that you're a very bright penguin, and did 
learn to count on your flippers. You wouldn't be able 
to count to 10. But you would be able to count to 2. 

Now suppose that you're the smartest penguin on Pen- 
guin Island. If you were that sharp, you might figure 
out how to use your flippers to count past 2. Here's one 
way you could do that. 

Instead of counting on your flippers the same way hu- 
mans count on their fingers, you could decide to equate 
a raised right flipper to I , and a raised left Hipper to 2. 



Then you could let two raised flippers represent the 
value 3. 

Now suppt)se you were the Albert Einstein of Pen- 
guin Island, and devised a new mathematical system to 
express in writing what you had done. 

You could use a to represent an unraised flipper, 
and a 1 to represent a raised one. And then you could 
scratch these equations in the ice: 




00 = 

01 = 1 
10 = 2 
11=3 



3 



AHA! FEET, TOO! 

Those are. of course, binary numbers. And they clear- 
ly show that if you were a really smart penguin, you 
could use two fiippers to express the values through 
3. That's a clear improvement over the two values that 
can be represented with more traditional fiipper-count- 
ing methods. 

Since our imagination has taken us this far, let's now 
suppose that you {still a penguin) wanted to leam to count 
past 3. While pondering this problem, you might look 
down at your feet -and notice two more flippers down 
there. 

Voila- bigger numbers! 

By using both flippers and both legs at the same time, 
you could count as follows: 

FOUR-BIT PENGUIN MATH 




0000 
0001 
0010 
0011 
0100 
0101 
Olio 
0111 
1000 
1001 





1 

2 
3 
4 
5 
6 
7 
8 
9 
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...and so on. 

If you continued counting like this, you would even- 
tually discover that you couid express 16 values -0 
through decimal 15-usJng four-digit (or four-bit) binary 
numbers. 

ONE MORE LESSON 

Now we're ready for one last lesson in Penguin Math. 
Imagine that you marry another penguin. And, using 
your skill with binary numbers, you determine that you 
and your spouse have a total of eight flippers between you . 

If your spouse decides to cooperate with you in count- 
ing with flippers, the two of you could now sit on your 
ice and start a floe chart with numbers that look like these: 



number combinations like "FCIC", "5DA4", and even 
"ABCD' are perfectly good numbers in the hexadecimal 

system. 




0000 0001 
0000 0010 
0000 0011 
0000 0100 
0000 0101 



= 1 

= 2 

= 3 

= 4 

= 5 



I 



If you and your spouse kept on counting in this fash- 
ion-using 8-bit Penguin Math-you would eventually 
discover that by using eight flippers, you could count 
from (or 0000 0000) to 255 (or 1 1 1 1 till), for a to- 
tal of 256 values. 

That completes this crash course in Penguin Math. 
What it has demonstrated is that it is possible to express 
256 values -from 0000 0000 through 111! lit I -us- 
ing 8-bit binary numbers. 

THE HEXADECIMAL NUMBER SYSTEM 

Since computers "think" in binary numbers, the bi- 
nary system is obviously an excellent notation sy.stem 
for representing computer data. But, as you may remem- 
ber from last month's column, binary numbers have one 
serious shortcoming: they're extremely difficult to read. 
So the binary system is not the numeric system most 
often u.sed in assembly language programming. The nu- 
meric system you'll encounter most often in assembly 
language programming is hexadecimal. 

Just as binary numbers are ba.sed on the value 2, hex- 
adecimal numbers are based on the value 16. If people 
were born with eight fingers on each hand, we would 
probably all count in hexadecimal numbers. 

Hexadecimal numbers are often used in assembly lan- 
guage programming because they can help bridge the 
gap between the binary and decimal systems. Since bi- 
nary numbers have a base of 2, and hex numbers have 
a base of 16, a series of four binary bits can always be 
translated into one hexadecimal digit. So a series of eight 
bits (a "byte") can always be represented by a pair of 
hexadecimal digits, and a series of 16 bits (a "word") 
can always be represented by a four-digit hexadecimal 
number. 

Here is a table comparing decimal, hexadecimal, and 
binary numbers. Observe that odd-looking letter-and- 

48 AHOY! 



DECIMAL 


HEXADECIMAL 


BINARY 


I 


1 


00000001 


2 


2 


00000010 


3 


3 


00000011 


4 


4 


00000100 


5 


5 


00000101 


6 


6 


00000110 


7 


7 


00000111 


8 


8 


00001000 


9 


9 


00001001 J 
00001010^ 


10 


A 


1) 


B 


00001011 


1 12 


C 


00001100 


1 13 


D 


00001101 


■ 14 


E 


00001110 


[ 15 


F 


00001111 1 
00010000 ' 


Sh^' 


10^^^ 



As you can see, the decimal number 16 is written "10" 
in hex and "00010000" in binary, and is thus a round 
number in both the binary system and the hexadecimal 
system. And the hexadecimal digit F, which comes just 
before hex 10 (or 16 in decimal), is written 00001 1 1 1 
in binary. 

As you become more familiar with the binary and hex- 
adecimal systems, you will begin to notice many other 
similarities. For example, the decimal number 255 (the 
largest 8-bit number) is 11111111 in binary and FF in 
hex. The decimal number 65,535 (the highest memory 
address in a 64K computer) is written FFFFFFFF in hex 
and 1 nil 111 lllllill in hex. 

CONVERTING BINARY NUMBERS TO 
DECIMAL NUMBERS 

It isn't very difficult to convert a binary number to 
a decimal number. In a binary number, as we've seen, 
the bit farthest to the right represents 2 to the power 0. 
The next bit to the left represents 2 to the power 1 , the 
next represents 2 to the power 2. and so on. 

The digits in an 8-bit binary number are therefore num- 
bered to 7, starting from the rightmost digit. The right- 
most bit-often referred to as Bit 0- represents 2 to the 
0th power, or the number I. And the leftmost bit-of- 
ten called Bit 7-is equal to 2 to the 7th power, or 128. 

The following is a list of simple equations that illus- 
trate what each bit in an 8-bit binary number means. 



VALUES OF THE BITS 
IN AN 8-BIT BINARY NUMBER 

Bit = 2 to the 0th power = 1 
Bit 1 = 2 to the 1st power = 2 
Bit 2 = 2 to the 2nd power = 4 
Bit 3 = 2 to the 3rd power = 8 





I 



Bit 4 


Bits 


Bit 6 


Bit? 



2 to the 4th power 
2 to the 5th power 
2 to the 6th power 
2 to the 7th power 



16 
32 
64 

128 



And that numhcr will be the binary equivalent of the 
decimal number we started out with. 

This conversion technique is illustrated in the follow- 
ing example: 



The above table provides an easy method of convert- 
ing any 8-bit binary number into its decimal equivalent. 
Instead of writing the number down from left to right, 
write it instead in a vertical column, with Bit at the 
top and Bit 7 at the bottom. Then multiply each bit in 
the binary number by the decimal number that it repre- 
sents. Then add up the results of all of these multiplica- 
tions -and the total you get will be the decimal value 
of the binary number. 

Suppose, for example, that you wanted to convert a 
binary number 00 1 0100 1 into a decimal number. Here's 
how you could do it: 



B CONVERTING A BINARY NUMBER 


■ INTO A DECIMAL NUMBER :: 


^^ 1 X 


1 = 1 


^^^ 


2=0 


^^^K 


4=0 


^^^B X 


8=8 


^^^B 


16 = 


^^^M 1 X 


32 = 32 


^^^B 


64 = ^^K 


^^^B 


128 ^^m 




AL = 41 ^.i^iJIBI 



00101001 AND OTHER FANCY NUMBERS 

If the calculation in the above example is correct, the 
binar>' number 00101001 should be equivalent to the dec- 
imal number 4 1 (that's decimal 4 1 . not hex $4 1 . for those 
already familiar with hexadecimal notation). Look up 
either 00101001 or41 on any binary-to-decimal or dec- 
imal-to-binary conversion chart, and you'll see that ihc 
calculation was accurate. And this conversion technique 
will work with any other binary number. 

CONVERTING A BINARY NUMBER TO 
A DECIMAL NUMBER 

Now we'll go in the other direction, and convert a dec- 
imal number to a binary number. 

First, divide the number by 2. Then write down both 
the quotient and the remainder. Since we're dividing b\' 
2, the remainder will be either a I or 0. So what we 
write down will be the quotient followed by either a 1 
or a 0. 

Next we'll take the quotient, divide it by two. and write 
the result down. If there's a remainder (a I or a 0), we'll 
write that down, too, underneath the first remainder. 

When there are no numbers left to divide, we'll write 
down all of the remainders we got, reading from the bot- 
tom to the top. What we'll have then, of course, is a 
binary number— a number made up of ones and zeroes. 
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CONVERTING A DECIMAL NUMBER 
TO A BINARY NUMBER 


1 




1 17/2 


= 58 with a 


remainder of 1 


1 




58/2 


= 29 with a 


remainder of 


I 




29/2 


= 14 with a 


remainder of I 


■ 




14/2 


= 7 with a 


remainder of 


m 




7/2 


= 3 with a 


remainder of 1 


■ 




3/2 


= 1 with a 


remainder of 1 


■ 




1/2 


= with a 


remainder of 1 


m 




0/2 


= with a 


remainder of ^ 


m 



HOW TO DO IT 

To complete the decimal-to-binary conversion pre- 
sented in this example, simply copy the binary digits in 
the right-hand column, writing them down horizontally 
from right to left, with the top digit on the right. You'll 
then sec that the binary equivalent of the decimal (not 
hexadecimal) number 1 17 is 01 1 lOlOl. If you have a 
decimal-to-binary conversion chart handy, you can use 
it to confirm this. 
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for the Commodore 64 

kyan pascal is a full implementation With a smgle disk drive and 
C64. you can learn Pascal and develop sophisticated programs 

kyan pascal is perfect for classroom or home use. It's M enu-Onven , 
User-Friendly operating environmerxt helps students learn quickly 
and lets advanced programmers develop programs 4 to 40 times 
taster than Commodore Basic 
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BINARY-TO'HEX AND HEX-TO-BINARY 
CONVERSIONS 

It's easy to convert binary numbers to their decimal 
equivalents. Just use this chart; 



i 



HEXADECIMAL-TO-BINARY 
CONVERSION CHART 



HEXADECIMAL 


BINARY 





0000 


1 


0001 


2 


0010 


3 


0011 


4 


0100 


■ ^ 


0101 


B ^ 


Olio 


■ 7 


Olll 


n 8 


1000 


\ ^ 


1001 


A 


1010 


B 


ion 


C 


1100 


D 


1101 


E 


1110 




^K lill 




64540/16 = 4033 with a remainder of 12 

4033/16 = 252 with a remainder of 1 

252/16 = 15 with a remainder of 12 

^_ 15/16 = with a remainder of 15 

When you"ve llnished this series of calculations, you 
must convert any remainder greater than 9 into its hex- 
adecimal equivalent. In the above problem, three remain- 
ders are greater than 9: the value 12 in the first line, 
the value 12 in the third line, and the value 15 in the 
fourth line. The decimal number 12 equates to the let- 
ter C in hexadecimal notation, and the deciinal number 
equates to the letter F. So the remainders, converted into 
hex. are: 






The above table shows how to convert a multiple-dig- 
it hex number to binary notation: merely string the hex 
digits together and convert each one separately. For ex- 
ample, the binary equivalent of the hexadecimal num- 
ber CO is 1 100 CXXX). The binary equivalent of the hex 
number 8F2 is 1000 1 1 1 1 0010. The binary equivalent 
of the hex number 7A IB is Olll 1010 0001 1011. 

To convert binary numbers to hexadecimal numbers, 
use the chart in reverse. The binary number 1 101 01 10 
1 1 10 0101 . for example, is equivalent to the hexadecimal 
number D6E5. 

DECIMAL- TO-HEXADECIMAL 
CONVERSION 

It's almost as easy to convert decimal numbers to hex- 
adecimal as it is to translate binary to decimal. Here's 
how it's done: 

First, take a decimal integer that you want to convert, 
and divide it by 16. Then write down the remainder, 
like this: 



64540/16 = 4033 with a remamae^ 

Then divide the integer part of the above quotient by 
16, and write dmvn the result of that calculation: 

4033/16 = 252 with a remainder of 1 



Read the above four numbers, starting from the bot- 
tom and reading up. and you have the hexadecimal num- 
ber 



FCIC 



-which is the number we re looking for-the hexadec- 
imal equivalent of the decimal number 64540! 

DOING IT THE EASY WAY 

We've compared three different number ba.ses: the dec- 
imal system, the hexadecimal system, and the binary sys- 
tem. And now you know how to convert numbers from 
any ot these three bases to any other, in either direc- 
tion. Some of the conversion techniques we've covered 
are quite simple, others are fairly complicated, and un- 
less you have a photographic memory, you may not re- 
member any of them by tomorrow morning. But for- 
tunately, you won't have to. Now that you know the prin- 
ciples involved. I'll tell you about an easier way to make 
number-base conversions. Just type and save the pro- 
gram presented in Listing I (on page 93) and you can 
let ytiur computer do it for you! 

By lite Numbers is a menu-driven BASIC prograjii that 
can convert numbers from any of the three bases dis- 
cu.ssed in this article to any other. 

In next month's column. Under the Hood, we'll take 

a look inside your Commodore's main microprocessor 

and see what makes it tick. Then, finally, we'll be ready 

to start writing some programs in assembly language. D 

SHE PROGRAM LISTING ON PAGE 93 



Keep repeating this process until uiu have a quotient 
of zero. Here's the entire set of calculations needed to 
convert the decimal number 34761 into a hexadecimal 
number: 
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SMALL THINGS CONSIDERED 

Our congratulations; to the following Commodore users, win- 
ners of subscriptions to Ahoy! courtesy of New York's S>natl 
Tilings Considered radio show (heard weeknights 5-8 and Sat- 
urdays 6-8 on WNYC AM83); 

Pamela Rosenblatt Zev Frankel Meredith Jones Frummer 

Meiis.sa Roscnblail Mauhcw Higgins 




MAKE NO MISTAKE. . . 

CALKIT for your Commodore 64 is a powerful, real-world problem solver. Faster, easier and 
more accurate than pencil, paper and calculator - and a lot less frustrating. 
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CalKir helps you solve household and small businesfi 
problems that involve rows and columns of numbers. 

balance your chequebook in seconds 

• plan your home or business budget with ease 

simplify your income tax, and your investment 
portfolio 

calculate loan or mortgage payments, and then 
find out what happens to them in seconds, when 
interest rates change 

That's the real advantage - with C alKit, you can 
change any number in your equation, and see bow it 
affects the other numbers. All calculations are per- 
formed instantly! CalKit gives you the answers, in the 



time it takes to ask "What If. . .7" You can make 
projections and plan ahead with confidence! 

The Cat Kit problem-solving package Includes built- 
in templates for the most important home and busi- 
ness needs. Over 20 ready-to-use, real-life applica- 
tions on one disk. The rows, columns and calcula- 
tions are already defined. No need for time- 
consuming initial set-ups - all you do is enter your 
data. Other CalKit features, like on-screen menu and 
simple commands, make it e\en easier. 

An easy and comprehensive manual with tutorials on 
each application are included. \bu'll be using CalKit 
like a pro, right out of the box. And once you've 
mastered the built-in templates, you'll be ready for 
your own unique spreadsheet programs. 



Powerful solutions + ease of use + low low cost = CalKit. It all adds up to exceptional value, 
for a computer program that can help you every day. 



186 Queen St. West 
Tbronto, Ontario, 
M5V 1Z1 Canada 
(416IS96-140S 



BATTERIES '^ INCLUDED 



"The Energized Software Company!" 



1 7875 5ky Park North, 

Suite P, Irvine, California 

USA 92714 



WRITE FOR A FULL COLOR BROCHURE 



ipt 984 Batteries Included. All rights reserved. Commodore is a registered Iradematkol Cammodare Business Macliines. Int. 




Sixty times each second the 
VIC and C-64 are inter- 
rupted by an internal ckx"k. 
At that point they stop what 

they are doing and service the inter- 
rupt. They checic the keyboard, up- 
date the screen and TI$. and then re- 
sume whatever they were doing 
when interrupted. 

It is possible to "wedge" into this 
interrupt handler and have some of 
our own activities handled in back- 
ground, independent of our main 
program. You may want to scroll a 
game background scene. You may 
want to perform some utility func- 
tion such as handle the joystick or 
possibly take each key pressed and 
print it on your printer as well as on 
the screen. It's possible to do all this 
and more. The process is easy to un- 
derstand and implement. 

The sample programs on page 107 
perform a simple operation but serve 
to demonstrate how to set up. enable, 
utilize, and. when finished, disable 
such a wedge. The programs arc 
listed as BASIC loaders; a machine 
language assembly ILsting is included 
here so you can follow along with the 
explanations. The assembly listing is 
from the Commodore assembler. 



UNDERSTANDING 
THE INTERRUPT 

To help us understand what's go- 
ing on, let's first discuss the hardware 
interrupt in general. We'll use the 
VIC and C-64 for illustration, but 
this applies in a general way to all 
microcomputers which u-se the 6502 
or 6510 microprcKessor chip. The 
hardware interrupt occurs 60 times 
each .second and is processed by the 
6502 (or 6510) CPU chip. All 6502's 
(or 65IO's), on receiving a hardware 
interrupt, look to the pointer speci- 
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fied in ROM locations $FFFE, 
SFFFF (low byte, high byte). This 
pointer 'points' to the first address of 
the routine, which handles the inter- 
rupt. In the VIC it points to SFF72 
in ROM ($FF48 in the 64). When 
the interrupt is recognized, the pro- 
cessor status register and program 



counter are stored on the stack and 
control is transferred to the routine 
beginning at address $FF72 (or 
$FF48). This routine saves the pro- 
cessor registers (A.X.Y) on the stack. 
This routine then does an indirect 
jump to whatever address is con- 
tained in RAM locations $0314. 
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|l VIC VERSION t ^^M 


•eee^ 


eeee 








1* (COrWENTED FOR C64] t ^^M 
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ee«i2 
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eee2i 


0347 


SB 
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LDA 197 (SET THE CURRENT KEY PRESSED 
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LDA 14 (CODE FOR COLOR ■ PURPLE 
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BE I (LOCKOUT INTERRUPTS DURING RESET 
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A MACHINE LANGUAGE TUTORIAL FOR BEGINNING 
AND INTERMEDIATE ML PROGRAMMERS 



$0315. This is referred to as the vec- 
tor location. When power was turned 
on, the start-up routine set these lo- 
cations to point to ROM location 
$EABF ($EA31 in the 64). At 
SEABF (or $EA3I) begins the rou- 
tine to take care of the keyboard, 
screen, and TIS. 

When this routine finishes, it re- 
stores ail processor registers and re- 
turns the CPU to where it left off 
when the interrupt was recognized. 
The key to all this is RAM locations 
$0314, $03 13, Since they are RAM, 
we can put our own address in them. 
Later, when the interrupt is recog- 
nized, we can perform our own 
activities and then jump to $EABF 
(or $EA31) to allow the normal 
housekeeping. 

HOW TO MAKE IT WORK 

Make sure any memoi-y expanders 
arc unplugged on the VIC. Enter the 
appropriate BASIC loader for your 
computer at the keyboard and RUN 
it. The BASIC loader POKEs the 
machine language from the DATA 
statements into the cassette buffer. 
Next, start it all off by typing 
SYS828 followed by the RETURN 
key at the keyboard. This takes us 
to our setup routine at $033C. Now 
follow along while looking at the as- 
sembly listing. We wouldn't want an 
interrupt to occur while we are 
changing its vector, so first we lock 
out interrupts in line 16. Then we 
change the vector to point io our own 
routine, enable interrupts, and return 
to the main program with RTS in line 
22. 

Now the fun begins! From now 
on, our routine, beginning in line 26, 
will run first when the interrupt oc- 
curs. Hit a key and watch what hap- 
pens; a charcter is printed in the cen- 
ter of the screen. You may notice the 
character is not the one you press. 
This is because we are taking the 



By Calvin Overhulser 

code from the register holding the de- 
coded keyboard matrix and storing 
it on the screen. These codes are dif- 
ferent than the screen codes and this 
causes the strange character to ap- 
pear. After we put the character on 
the screen in line 27, we put the ccxie 
for purple in the corresponding col- 
or memory location in line 30. Last, 
in line 32. we jump to the normal 
housekeeping routine. This all t)ccurs 
60 times each second. 

To disable our routine and put ev- 
erything back to normal, just type 
SYS854 followed by RETURN. 
SYS854 takes us to line 37 in the as- 
sembly listing which puts the vector 
back to normal. Hitting the RUN/ 
STOP and RESTORE keys will have 



the same effect. Make sure you dis- 
able our interrupt routine before you 
try to SAVE or LOAD tape, other- 
wise there will be a conflict since the 
routine resides in the cassette buffer. 

APPLICATIONS 

Now that we know how to use the 
hardware interrupt we can write rou- 
tines to handle any job which we 
need done at a regular interval. 
Would you like to do sound effects 
or screen background motion? 
Would you like to do a screen dump 
to your printer whenever you hit a 
certain key? Use your imagination 
and all kinds of possibilities may be 
revealed. D 
SEE PROGRAM LISTING ON PAGE 107 
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We're sure you're looking forward to trying out the programs in this issue of 
AhoyI But we're equally sure that you're not looking forward to typing them in. If 
you're an average typist, that should take you upwards of 25 hours. Not counting time 
spent correcting your typing errors, of course. How long that will take is anyone's guess. 
• How would you like someone to type the programs for you? At a price of, say— 320 
an hour? Wouldn't it be worth 32C an hour to free yourself up for more pleasant pursuits- 
like enjoying the rest of your Ahoy! magazine? • If you order the Ahoy! Program Disk or 
Cassette, you'll be getting that service for just under 32C an hour. Because for $7.95 (postage 
included)? we'll mail you all the programs in this issue, on a disk or cassette that's tested and 
ready to run with your C-64 or VIC 20. It you subscribe, you'll save even more: 12 monthly 
disks or cassettes for $79.95, 24 for $149.95 (postage included)'. Back issues are available as 
well. • You already know how to type. Why not use the hours you spend with your Commodore 
to learn something new? •Canadian and foreign prices higher. 
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ASSEMBLER ESCAPADES 

Putting Assembly Language Routines into BASIC 

By Dale Rupert 

(PRG). This is the subroutine that we will replace with 
a machine language program. 

We will come back to lines 1 and 2 of Listing 1 later. 
Lines 10 and 20 define the functions which calculate the 
most significant byte (MSB) and the least significant byte 
(LSB) of any integer X. Line 30 calls the subroutine at 
line 500 which puts a fancy design on the screen. 

Lines 40 through 60 define the variables required for 
the SAVE routine. The filename of the screen memory 
is @:SCRN1. The "@:"" will cause any previous ver- 
sion of SCRN 1 to be erased before the current screen 
data is saved as an updated SCRNl. This is handy for 
debugging so that you don't have to repeatedly define 
new filenames every time the program is run. On the 
other hand, when you use this program to save your own 
screen images, you will want to use a new filename for 
each screen image. 

Before putting an image onto the screen, you could 
use INPUT statements to specify the filename for the 
screen memory and the color memory. You might add 
lines 26 and 27 as follows to do this: 



Are you curious about those BASIC programs 
that contain line alter line of numbers in 
DATA .statements? Perhaps you know that 
somehow all of those numbers represent a 

machine language program. If you've wondered where 
the numbers came from in the fir.st place, just keep read- 
ing. Enlightenment is close at hand. 

This month we will continue last month's work. We 
will u.se an assembler to create a machine language pro- 
gram. Next, using a disassembler, we will look at that 
program in memory. Finally we will convert the ma- 
chine language instructions into the DATA statements 
of a BASIC program. 

If this is your fir.st experience with assembly language, 
this article will be at least a two-pass process. I strong- 
ly recommend that you read it through first for an over- 
view of all the concepts, then reread it at least once to 
study how the pieces fit together. 

Last month we discussed the Kernal routine called 
SAVE. We u.sed SAVE from within our BASIC program 
to put a specified portion of memory onto a disk pro- 
gram file. Specifically, we wrote a program to .store the 
machine language portion of DOS 5. 1 ("the Wedge") onto 
any diskette. We also discus.sed the mtxiifications re- 
quired to save a screen image onto a disk. 

This month we will work with a program to save both 
the screen memory and the color memory data of the 
Commodore 64 onto separate disk files. We will start 
with last month's BASIC subroutine to access the Ker- 
nal SAVE routine. Then we will edit, assemble, and dis- 
assemble a machine language program to replace that 
BASIC subroutine. Have a look at the main program 
in Listing 1 (see page 91). 

Lines 150 thrtiugh 330 access the Kernal SAVE rou- 
tine, as we di.scussed last month. They form a subrou- 
tine which is called from lines 60 and 90. When this 
subroutine is called, SADDR and EADDR contain the 
starting address and ending address respectively of the 
portion of memory to be written to a disk program file. 
The file's name is specified by the variable FLNAMS. 
The OPEN statement in line 230 replaces the SETLFS 
and SETNAM Kernal routines which are prerequisites 
for the SAVE routine. Review last month's article or re- 
fer to the description of the SAVE routine on page 293 
of the Commodore 64 Programmer's Reference Guide 



26 INPUT "CREATE WHAT SCREEN FILENAME?"; 
FS$ 

27 INPUT "CREATE WHAT COLOR FILENAME?"; 
FC$ 

You would then replace lines 40 and 70 with these lines: 

AO FLNAM$ = FS$ 
70 FLNAM$ = FC$ 

The additional statements to restore the screen image 
are in lines 100-140 and line 600. Line 110 clears the 
screen image which has just been saved to disk. Line 
130 sets a flag QQ to 1. We'll see why in a moment. 
The color memory filename is stored in FLNAMS. and 
the program jumps to line 600. Line 600 loads the data 
from that file back into the memoryjocation whence it 
came (because of the ". 1" at the end of the LOAD .state- 
ment.) 

After the LOAD statement is done, BASIC behaves 
as if a GOTO were next, and execution resumes at 
the start of the program. In line 1 , the value of QQ is 
tested and seen to be 1 , so the program branches to line 
140. When this program is run for the first time, the 
value of QQ is 0. Consequently lines I and 2 are by- 
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passed initially. 

At line 140, the QQ flag is set to 2, and FLNAMS 
is given the value of the screen memory filename. Line 
600 loads the screen file data back into the proper area 
of mcnu>ry which is now at locations 1024 through 2023, 
and the image reappears on the screen. As before, exe- 
cution continues from the beginning of the program. 
Since QQ now has a value of 2, line 2 causes the pro- 
gram to end. If you wish to do something else with this 
screen image, simply modify line 2 to jump to your own 
routine. 

THE ASSEMBLER 

Our next goal is to write an assembly language rou- 
tine to duplicate the functions of the BASIC statements 
in line 240 through 3 10 of Listing 1 . First you mu.st have 
an assembler program. 1 used the lEA Instant Editor As- 
sembler from Robins Software (Bloomington, MN). It 
is a reasonably priced editor, assembler, and monitor 
package that is self-contained and relatively easy to use. 
If you are using another assembler, the procedures in 
the following discussion will be very similar. 

The lEA assembler does not require a separate editor 
program to create the assembler .source file. Instead it 
adds some commands to the BASIC screen editor. Thus 
you create an assembly language routine much the same 
way you do a BASIC program. Simply type each assem- 
bler statement on a separate line. Although lEA allows 
the BASIC and assembler routines to be contained with- 
in the .same file, we will create the assembler routine 
separately. 

Look at the statements in Listing 2 (page 92). 

With the exception of the periods at the start of each 
line, lines 210 through 340 were typed just as shown. 
(Lines 10 through 30 and the initial peritxJs on each line 
were added later in order to create the magazine listing.) 

The assembler takes this "source code" which consi.sts 
of somewhat Engli.shiike statements and translates it into 
"object cxxle" which is the actual machine language num- 
bers that the processor understands. Some of the state- 
ments in this source code translate directly into machine 
code, while others are special instructions for the as- 
sembler, called "pseudo-ops." 

First we will discuss the 65 10 microprtx;es.sor instruc- 
tions in the source file. Then we will look at the pseu- 
do-ops. Pages 232 and 233 of the PRG list the 6510 in- 
struction set. Using that list, you can see that lines 230 
and 260 through 320 of the source listing contain actual 
6510 instructions. 

Line 230 tells the proce.ssor to JuMP to the line la- 
beled '":ENTRY". Each label is preceded by a colon. 
The line numbers in Listing 2 have been chosen to cor- 
respond as much as possible to lines performing similar 
functions in Listing I. 

The accumulator is frequently used as an intermedi- 
ary since the 6310 microprocessor cannot directly move 
data from one memory location to another. Line 260 
loads the accumulator (LDA) with the value stored in 
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the memory location labeled ":SADDR". Line 265 takes 
that value in the accumulator and stores it (STA) direct- 
ly into memory location $FC. which, you may recall 
from last month, is a page-zero location available to us. 
The "$" indicates a hexadecimal value. Similarly the val- 
ue in memory location ":SADDR + V is loaded into 
the accumulator and then stored into page-zero location 
$FB in lines 270 and 275. (We will see what those mem- 
ory values are a little later.) 

Line 280 is a "load immediate" in.struction as indicated 
by the "jT in front of the $FB. Rather than treat the SFB 
as an address as it did with ":SADDR" above, the micro- 
processor will put the value of SFB directly into the ac- 
cumulator. 

Lines 290 and 300 take whatever values are in mem- 
ory locations ":EADDR + i" and ":EADDR" and load 
them (LDX. LDY) into the X and Y registers. Glance 
back at Listing I , and sec that the.se asseitibly language 
instructions duplicate the functions of the BASIC instruc- 
tions in lines 260 through 300. 

The JSR instruction in line 310 is comparable to a 
GOSUB statement in BASIC. It tells the proces.sor to 
call the subroutine who.sc address is stored in the mem- 
ory location labeled ":SAVE". You can see that the as- 
sembler memory location labels arc analogous to vari- 
able names in BASIC. 

At the end of the Kcrnal SAVE routine is an RTS (Re- 
turn from Subroutine) in.struction which transfers con- 
trol back to our program at line 320. The RTS instruc- 
tion in line 320 returns control back to BASIC. Notice 
taht Listing I doesn't need such a statement since the 
SAVE routine returns directly to BASIC. Listing 2 cre- 
ates a machine language program which calls another 
machine language Kcrnal routine, whereas Listing I is 
a BASIC program that calls the Kernal routine. 

PSEUDO-OPS 

The instructions in Listing 2 that we have not yet dis- 
cussed are the pseudo-ops. They look .somewhat tike as- 
sembly language mnemonics (LDA, RTS, etc.) but they 
are not among the instructions recognized by the 6510 
microprocessor. The pesudo-ops are instructions to the 
as,semb!er. 

The ORG (Origin) instruction tells the assembler where 
the program is to reside in memor>'. We've chosen $C0O0 
for the start of our routine. The next pseudo-op is the 
.EQ (Equate) in line 240. This is equivalent to the LET 
statement in BASIC. It assigns the value SFFDB to the 
label :SAVE, just as we did in line 240 of Listing I . 
The .EN instruction in line 340 tells the assembler where 
the end of our assembler source code is. These three 
pseudo-ops do not actually cau.se any data to be put into 
memory. 

The pseudo-op .DB (Define Byte), on the other hand, 
does cause data to be stored in memory. The location 
in memory for the first of the two bytes S04 and SOO 
will be referred to by the label :SADDR, and :EADDR 
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identities the memory kx:ation of the first of the two bytes 
$07 atrd $E8. The second bytes are at (:SADDR + 1) 
and (;EADDR + I) respectively. 

II" we were to a.ssemble this program by hand, we 
would have lo figure out how many bytes long the JMP 
instruction in line 230 is in order to know where in mem- 
ory the $04 and the S(X) will reside. The assembler takes 
care of that for us. It allows us to refer to the memory 
locations by means of the labels we have chosen. Con- 
sequently we don't even need to know the actual numer- 
ical values. 

Since assembly language is a lower-level language than 
BASIC, comments are even more crucial for debugging 
and for figuring out tomorrow what the routine you wrote 
tixlay was supposed to do. A semicolon defines the start 
of a comment in the source code. Anything after the 
semicolon on a line is ignored by the assembler. 

Right now you may be wondering what we do with 
the source code we've created. First we save the source 
ctxjc just as we would .save any BASIC program we have 
typed in. Then we assemble it. 

With the /EA assembler, the in.struction .A puts the 
assembler into action. The mnemonics are translated into 
their numeric values. The values following the .DB p.seu- 
do-ops are inserted in their proper places. Also a sym- 
bol table is created which shows the numeric values as- 
signed to each of the labels. Typing .X with the /EA 
assembler displays a symbol table as shown in lines 40 
through 70 of Listing 3 (page 92). 

Notice that :SADDR begins at $C003. The ORG state- 
iiicnt specified that our program was tt) begin at SCOOO. 
From this we can conclude that the JMP instruction re- 
quires three bytes, residing from addresses SCOOO to 
.SC002. The label :END ha.s a value SCOID, so our pro- 
gram will occupy memory locations $C000 through 
SCO ID. Actually the .EN pseudo-op creates a $00 byte 
at location $C01D which corresponds to a BRK (Break) 
instruction. Refer to page 256 of the PRG to see the hex 
values (called the op-codes) of all instructions. 

Now that we have edited (created) and assembled this 
program, we can save it to disk as an executable file 
if we wish. Using the .S command saves a specified 
range of memory under a filename that we choose. The 
program .saved is called the object code. In order to see 
what the object code Uioks like, with the /EA assembler 
we must use a separate monitor program. 

THE MONITOR 

A monitor program allows you to readily peek at data 
and instructions stored in memory. A monitor will typ- 
ically contain a disassembler which translates the num- 
bers it finds in memory back into the mnemonics that 
we used with the assembler. Generally a disassembler 
cannot create labels since those are not stored in mem- 
ory as part ()f the object code. (A symbolic debugger 
will allow you to assign labels and refer to them during 
debugging, but we won't use one here.) 
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Listing 4 (see page 92) shows the result of disassem- 
bling our object code as it resides in memory. 

I have added the numbers in the left column for the 
magazine listing. They correspond to the numbers in 
Listings 1 and 2. The disassembled object code is in es- 
.sence what the microprocessor sees when it executes our 
program (yes, we know the values in memory are really 
O's and I's rather than hexadecimal, but binary is too 
cumbersome for our brains). 

The second column of numbers indicates the memor>' 
addresses where each instruction resides. The next one. 
two or three hex values are the op-codes for each in- 
struction. The last columns contain the mnemonic in- 
structions corresponding to the op-codes. 

For example, beginning at memory location $CO(X) 
arc the three bytes S4C $07 SCO. When the processor 
sees the $4C instruction, it recognizes it as a JMP state- 
ment. The processor expects the next two bytes to rep- 
resent the address to which it will jump. Those two bytes 
are stored in the LSB. MSB format we have already dis- 
cussed. Consequently the processor jumps to address 
$C007 in order to fetch its next instruction. 

Some instructions are only one byte long (RTS) and 
others may be two or three bytes long. Part of the pro- 
cessor's job is to detemiine from the op-code how many 
bytes make up each instruction. If you glance at the de- 
.scription of the LDA in.stniction on page 245 of the PRG, 
you will see that it may be either a two or three byte 
instruction. How docs the processor know? Very simply, 
each form of the instruction has a separate op-code. 

Op-code SA9 implies a two-byte instruction, and op- 
code SAD is part of a three byte long instruction. The 
assembler mnemonic is LDA in both cases, but the pro- 
cessor sees them as two different instructions. In the first 
case (line 280 in Listing 4). the processor treats the next 
byte (SFB) as data which is immedialety loaded into the 
accumulator. In the .second ca.se (line 270). the next two 
bytes ($04 SCO) are treated as an address ($C004) from 
which the processor retrieves a byte of data to be stored 
in the accumulator. 

The disassembler treated our data in locations SC003 
through $C006 as if they were op-codes. The $04 and 
$07 are not valid op-codes whereas $(X) and $E8 just 
happened to be valid. These values correspond to the 
.screen memory starting and ending addresses that will 
be u.sed by the Kernal SAVE routine. Our BASIC pro- 
gram will POKE the correct data into these memory lo- 
cations before this program is executed. The processor 
will not mistakenly execute this data .since the JMP in- 
struction at SCOOO branches around it. 

To test your understanding of this disassembly list- 
ing, see if you can figure out what value will be loaded 
into the Y register when the instruction at memory lo- 
cation SCO 1 6 is executed. If you said S07. you are cor- 
rect. LDY SC005 tells the processor to take the value 
from location $C005 and put it into the Y register. Ac- 
cording to line 253, the value in location SC005 Is $07. 



An integrated business software paclcage 
for the 0-64"" for Si. 59 a Program? 

Yes. 

The Intelligent Software Package for 0-64"", VIC™, SX-64™', Plus 4™, 1B™, 'B'-Series"*, and PET/CBM™. 

No games, no fancy packaging, and you can't buy it anywhere but here. But: 92 powerful, useful programs [totall- 
ing over 51 pages of source code] that will put your Commodore to work right now, in your home or office; all on 
disk or tape at the ridiculous price of S35. Includes; 

Database: A complete multi-keyed fixed-record-length data base 
manager. Sort or select (using all relational operators: , = > , < 2, 
AND. OR, NOT, wild card] on any field, perform computations on 
numeric fields. Any operation can be performed on all, or only selected 
records. All fields completely user-definable. Can be used for any 
number of tasks, including accounting, mailing lists, inventory con- 
trol, record, tape, or book cataloging, expense account 
manintenance. or as an electronic rolodex. Even if you use your Com- 
modore for nothing else, tfiis program alone migfit justify its expense. 
Word Processor: The orginal word pf~ocessor for the VIC-20, W/P 
is now available for all CBM models , A full-featured menu-driven word 
processor including very fast file commands [including a disk catalog), 
screen editing, text locating and full control over margins, spacing, 
paging, indentation, and justification. "... well done and hi^iy func- 
tiorml . . . Provides an excellent alternative txi the high priced word 
processors . . . this is an excellent buy. Highly recommended." — 
Midnite Software Gazette. ' 'Provides good basic features. " — Com- 
pute's Gazette. 

Copycalc: An electronic spreadsheet. Turns your Commodore in- 
to a visible balance sfieet; includes screen editor. ' 'Excellent pro-am 
for budgeting, estimating, or any math-oriented use . . . well worth 
the money. Highly recommended. " — Midnite Software Gazette. 

Intelligent Software 

Quality Software since 1 989 



Also Included: ReportGen, ReportMerge [interface W/P with 
Database to create form letters, statements, invoices, mailing 
labels, other reports.]: Baseball Statistician [compiles batting 
statistics for a baseball league]; several W/P utilities, including In- 
dex [indexes W/P's text files]; several Database utilities, including 
DBmerge [facilitates multi-file database applications.], AMD 
DBStat (analyzes D/B files]; a programming utility. ASCII, which 
converts text files [program listings] into program files; also 
Checkbook, Inventory; Paper Route: Loan Analysis: 
Breakeven Analysis; OeprBciation: Labeler: more. 
Versions of the package are available for any and every Commodore 
computer having a minimum of 1 0k RAM [does it say 'Commodore' 
on It? How about on the box it came in?] Add S3 if you have an B05D 
disk drive. All programs will fully support tape, disk, and printer. The 
package is available on disk or tape (disk version only for Plus4" and 
16™.) Price includes documentation and shipping within USA and 
Canada; all other countries, add $5 [no personal checks from out- 
side USA). No charge cards. For C.G.D., enclose $5 fee; Calif. 
residents add 6% . This ad is the catalog. 



Box A Dept. A 

San Anselmo. CA 94960 



Reader Service No. 230 






C-64 UTILITIES 



COPY CLONE with Utilities Copy protected 
disks in 5 minutes or less. Works with MOST 
software. Will not damage disk drive. Over 20 
utilities, including professional disk dri ve analysis 
• 30 second formatting • sophisticated ^Jfg"^ 
disk editor • and much, much more. 




Make your C-64 Grow! 



m 



m 



Who Needs IBM?" 



POWER PLUS 

Utility adds 40+ commands, 
doesn't use BASIC memory 

• 100% machine, • SCREEN 
DUMP to printer* UN-NEW 

• MACHINE LANG. MONI- 
TOR • Adds BASIC com- 
mands AUTO LINE NO, RE- 
NUMBER, FIND, 
CHANGE, 
DELETE, more. 



14 ACTION GAMES 

When you order both programs 



MSD DUAL DRIVE ONLY *525 plus MO p/h 



Send check or money order (include 
$2.00 postage & handling) CA 
residents add 6% sales tax to: 
VISA MASTERCARD 




EDUCOMP 

2139 Newcastle Ave., Ste. 
CardiO.CA 92007 
(619)942-3838 



TM 



HOT ACCOUNTS 

The most highly acclaimed 

bookkeeping system 

tor the Commodore 64'? 



Superbi 

An exceplional program that 

outstitnes all olhers 

RUN Magazine. Nov 19&4 

HOT ACCOUMTS" teaches you twokkeeping 
as i1 automatically performs dozens ol lull-service 
accounting functions. H is a complele system that 
will instantly organize your records and receipts 
and supply ctians. formal slatements. and budget 
information Now your records can De accurate, 
up to dale and conlideniial ■ Trades charge 
cards, checkbooks, all transactions • flequires 
no prior knowledge of accounting • Home or 
small business ■ Improves your financial image 
• Cost less than I hour with a C PA 

HOT ACCOUNTS'" Bookkeeping System 

on Disketle 

For RUSH delivery, send check or money 

order for $64.95 to: 

Computer Ed. Software 

1002 Brookes Ave W„ Ste 100 

San Oiego. CA 92103 

Credit card orders, call toll-lree 

1 -800-621 -0852 ext 236 

VISA MASTERCARD 

P.S. Use HOT ACCOUNTS ■ to do your taxes 
and the price is lax deductible! 



•""'^■'"'"-' 



BONUS OFFERi Order Oelore July 15th and 
receive a full featured, 60 function woKl pro- 
cessing & 3D business graphics package as 
our FREE gift lo you 

■^*"""i!^"^WWW?#B"! ■ Vj- . 11 . 1 .. I J M I L LJ I Ll i m 



Reader Service Mo. 239 



Now what value will be stored in page-zero location 
SFB by the instruction at location SCOOF? If you said 
$00, you're right! Notice that the accumulator contained 
the value which it got from $C004 in line 270. The val- 
ue in $CO(M is SOO. 

BACK TO BASIC 

We can now modify our original program to imple- 
ment the machine language routine we've just discussed. 
From the disassembler output, we easily create the 
DATA statements in Listing 5 (see page 92). The state- 
ments in Listing 5 will replace the correspH)nding lines 
in Listing I, 

The data is POKEd into memory by the statements 
in lines 190 through 220. Once that is done, memory 
locations SCOOO through SCOIC look the same as they 
did after we assembled our source code. The first time 
this subroutine is called (by line 60), the machine lan- 
guage data is read and stored in memory. The second 
time it is called (by line 90), lines 190 through 220 are 
bypassed. 

Lines 240 through 290 put the appropriate screen or 
color memory starting and ending addresses into the 
proper RAM locations (which we determined from the 
symbol table in Listing 3 and from Listing 4). 

Finally the SYS statement in line 310 sends the pro- 
cessor to our machine language routine at address 49152 



(SCOOO) where the specified memory data is written to 
a disk file. As in Listing 1 , the filename is established 
by the OPEN statement in line 230. 

There is really no advantage to using the machine lan- 
guage version of this subroutine compared to the BASIC 
version. The machine language version has been written 
to exactly duplicate the BASIC one. The Kernal SAVE 
routine takes the same amount of time to execute regard- 
less of which routine calls it, so we have no speed ad- 
vantage in this particular case. This has been primarily 
an academic exercise. 

Hopefully you now have a better understanding of how 
machine language routines may be incorporated into 
BASIC programs. Perhaps you have learned something 
about editing, assembling, and disassembling. This ar- 
ticle has provided a model which may be useful for crea- 
ting and calling your own machine language routines 
from BASIC. If nothing more, at least you have two 
versions of a program for saving and restoring screen 
images on disk. 

The lEA Instant Editor/Assembler is S39.95 -I- S2 p&h 
from Robin's Software, 10349 Zinran Circle, Bloom- 
ington, MN 55438. Mark Robin mans the assembly lan- 
guage hotline at 612-944-8654 from 6 to 10 p.m. (CST) 
seven days a week to assist Commodore 64 assembly 
language programmers. D 

SEE PROGRAM LISTINGS ON PAGE 91 
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For the C-64 

By Larry Coats, with Noel Nyman 



You are making a raid on Heartland to cap- 
ture as many hearts as you can. But beware 
of the butterflies. One touch and you'll lose 
I one of your lives. Touch too many and you 

lose the game. 

This game uses a joystick to move a playing piece 
through a simple maze, capturing hearts by touching 
them. Floating around in the maze are butterflies. You 
must avoid them and collect all the hearts to exit from 
the maze. If you make it. you score extra points and 
get a new maze. 

Up to nine people can play, taking turns with the joy- 
stick. There are nine levels of play as well. The game 
may seem simple at first. But looks can be deceiving! 
Machine language is used for the maze action to pro- 
vide fast movements and quick joystick response. 

Two programs are used to LOAD and RUN Raid. 
Type in the Disk Boot on page 94 if you use a disk drive. 
Use Cassette Boot, also on page 94, if you have a 
datasette. Then type in the main listing, SAVE the pro- 
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gram with the name Raid so the boot program can LOAD 
it properly. 

Since there are many DATA statements, we've in- 
cluded a "checksum" to help you detect any errors in 
typing. The last number in each DATA line is negative. 
Be sure to type in the minus sign. 

When you first RUN Raid, you may see an error mes- 
sage on the screen. The message will identify the line 
number of a DATA statement that has an error. Once 
you've found all the errors, the program will display the 
maze and ask you for the number of players and level 
of difficulty. 

You can remove the REM statements in lines nine 
through twenty-five if you wi.sh. Line #2140 displays 
the updating address on the screen during the machine 
language load. The program will LOAD faster if you 
leave out the two PRINT statements on this line. Don't 
take out the POKE statement! 

We hope you enjoy this simple but challenging game. D 
SEE PROGRAM LISTING ON PAGE 94 



□ OS PLUS 



Confinui'cl from page 39 
than the start of BASIC. For instance, you might have 
a hi-res screen you wish to save, or a block of sprite 
data that you want to write directly to disk. Give your 
data block a filename, enter its starting address and end- 
ing address + 1 , and Dos Plus will do the rest. No more 
loading a monitor to save machine language programs! 
You may reload such saved files by typing LOAD "'file- 
name",8.1 < return >. You could even save BASIC 
ROM itself, if that were your passion. Notice that 
the file saved is automatically verified for you. 
This one is used several ways: 

♦FILENAME <RETURN> 



or 



♦"FILENAME" <RETURN> 

or by entering the asterisk directly in front of a filename 
in a directory listing. This is the SINGLE-FILE COPY 
command structure. After entering it, you will be 
prompted for a destination. Single drive users should 
respond by entering '8". The file will now be copied into 
memory from the disk that is presently in the drive with- 
out overwriting any program you might have in memory . 
The size of file that may be copied is limited only by 
the amount of memory available between the next even 
page boundary above the end of any program in memory' 
and the top of BASIC. If, during the copy process, the 
file exceeds the top of BASIC high memory, the copy 
will abort with 'FILE TOO BIG.' If you are going to 
copy a very large file it would be wise not to have a 
program in memory at the time of copy. After the entire 
file has been brought in from disk you will be asked to 
insert the destination di.sk and press RETURN. The en- 
tire file will then be written to the destination disk. The 
file will be auto-verified at that point {unless you have 
defeated that function). If you wish to abort the copy 
process, you can do so by pressing RUN/STOP at the 
'INSERT DESTINATION DISK' query. Do not attempt 
to copy relative files with this function. Sequential, user, 
and program files may all be copied but will be written 
as program files. If you use this function to copy a non- 
program type file you may use the @:D (block dump/ 
modify) command to change the file-type identifier in 
the directory. If you are using two disk drives you may 
enter '9' to the 'TO ? 8/9' prompt. Be careful that drive 
'9' is present or the computer will 'hang.' After the copy 
process is complete you will be logged to drive 9. 

Since drive logging has been mentioned, note that if 
you are using two disk drives, one as drive 8, the other 
as drive 9, you may use Dos Plus to work with both. 
To change the drive you are currently logged to, enter: 

m <RETURN> 



or 



@9 <RETURN> 

as appropriate. After logging to a given drive, all fu- 
ture disk operations widi Dos Plus will be performed 
on that drive. To work with the alternate drive you must 
log to it with the correct @ < number > . Also note that 
this is automatically done when you use the copy func- 
tion (*) and enter the appropriate drive number to the 
TO ? 8/9' prompt. 

Want to verify a program that is at a location other 
than the start of BASIC? Type: 

@: V FILENAME • ,$<START ADDRESS >< RETURN > 

This is primarily useful if you have disabled the auto-ver- 
ily function oi Dos Plus. Since verifying large saves can 
be time consuming, you may wish to disable the auto- ver- 
ify on saves or copys from within Dos Plus. You do 
this by changing the DOS. BOOT program which loads 
DOS PLUS. Alternately, you may POKE the appropriate 
location as is listed in Table 1 . The @:V (verify) com- 
mand enables you to verify saves or copys as you see fit. 

Some additional commands: 

@ - Read disk error channel 



/i 



Program 

in the 

FAST LANE 



Learn 
Assembly 
Language 
Programnning! 




L 
E 

A 
R 
N 



Commodore's Assembler 

Mcriin 64 AssemWcr 

Kid Assembler (included FREE in bool<!) 

Learn to use opcodes, operands and everything 

else to prosram In machine/assembly lansuagc. 

Watch your program run at warp SPEED! 

Only $14.95 at your favorite book or computer store or order 
direct (include $1.50 for shipping and haridling — California 
residents add 6% sales tax). 



MAIl TO: 



Dealer Inquiries invKed 

microcomscribe 

*"" 8982 Stimion Cu, San Diego, CA 92129 

(619)484-3884 



Reader Service No. 185 
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/filename - Load a program at start of BASIC 
% filename -Load a program at its load address 
-^filename -Save a program from start of BASIC 

(will autoverify unless disabled) 
t filename —Load & Run a program at start of 

BASIC 
#<nnnn> -Give hex number for decimal input 
$<nnnn> -Give decimal number for hex input 
@Q -Disconnect Dos Plus 

These commands work as they do in previous Wedge 
programs. The hex and decimal number conversions use 
16-bit arithmetic, meaning that the largest values returned 
are 65535 and $FFFF respectively. Right justification 
is used for hexadecimal input. This means that $ABCDE 
will be taken as SBCDE, etc. 

For the hard to please among you and the true hacker 
types, three command structures have been supplied that 
are null routines. The.se are: @: 1, @:2. and @:3. All 
three merely print a carriage return and jump to BASIC 
at $E386. You may revector these commands to your 
own custom routines by changing the last three jump 
addresses at the very end of the DOS Phis machine lan- 
guage to the addresses of your routine. Characters en- 
tered with these commands wilt be in the system input 
buffer at $0200 and are terminated with a zero byte. Your 
routines should return to BASIC with a JMP SE386 in- 
struction, not an RTS to DOS PLUS. 



Commodore 64 
Programming B [~] l 
Made Simple ^ 





pp. 360 

Learn to program! David A. Lien has taught 
thousands of people BASIC progrannming and 
introduced them to writing custom software. 
Hands-on instructions in a simple, comprehensive 
and even humorous style make learning fun. With 
Learning Commodore 64 BASIC you can enjoy 
the full powers of your C-64! 

Order by calling TOLL FREE 800-854-6505 {in 
Calif. 619-588-0996) or send $14.95 plus $2.00 
($3.00 foreign) for postage and handling. Visa and 
MasterCard users, include card # and expiration 
date. Mail to: 




CompuSoft ' Publishing 

535 Broadway, Dept. 270585 

El Cajon, CA 92021 



The DOS. BOOT program contains several POKEs that 
are user mtxiifiabic. The.se addresses and their functions 
are outlined below. 



POKE .■i.T2.TO.0Ol 
POKE 5.1012.008 
POKE 51329.0% 



POKE .5.^040,018 

POKE 53063,018 
POKE .50949.144 
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I =auto-verify 0=d()n't aulo-vcrily 

derauU drive at powcr-up 

96 = UPPER CASE Primer Sec. Addrs. 

103 = lower case Printer Sec. Addrs. 

1 8 = reverse video on directory header 

146 = no reverse video 

.same as above 

color of hex numbers in DUMP/MODIFY 

POKE 51069.144 : same as ak>vc 

POKE 51057.005 : color of ASCII digits in DUMP/MODIFY 
(this combination looks best on my amber 
Taxan. Alter to your tastes -use ASCII num- 
ber lor color ciKfe, not Commodore color 
codes, i.e.. 5 = white, 28 = red. I44 = blacli. 
etc.) 

By POKEing these locations you can. with the appro- 
priate values, alter Dos Plus to your own tastes. Any, 
or all, of these locations can also be changed directly 
from the keyboard should you so desire. Merely POKE 
the location with the value you wish to .substitute. This 
will save you from having to run the loader program 
to make the changes. 

Well, there you have it -a balanced .set of tools all 
wrapped in one tight package that won't steal precious 
space from your BASIC programs. Since Dos Plus takes 
up all but two of the ligations at $C000 - $CFFF, you 
will most likely find a confiict in memory usage with 
some other utility that you like to u.se. Experienced ma- 
chine language programmers will be able to gel around 
this by reliK-ating these utilities and patching them to Dos 
Phis with the supplied hooks. If it is beyond your pres- 
ent programming skills to implement such a patch, you 
will find the inconvenience to be more than outweighed 
by the usefulness of Dm Plus. Who knows? After a time 
you may wonder how you ever got along without it! 
Shortly afier I wrote Dos Plus. I completely destroyed 
the directory tracks on a CP/M disk on which I had the 
only copy of a compiler I was writing. Usini; the BLOCK 
DUMP/MODIFY function of Dos Plus, "l was able to 
reconstruct the directory tracks and thus recover three 
months' worth of work. 

Writing Dos Plus has been an educational experience 
for me. I hope that using it wilt prove to be a pleasur- 
able and educational experience for you. 

For those who wish to patch their own machine lan- 
guage routines to Dos Plus, or are merely curious or 
want to leam more about as.sembler, 1 will supply copies 
of the source code for Dos Plus. Since this amounts to 
over 30 pages of heavily commented hardcopy I will have 
to ask that you help cover the cost of paper. Send $1 .50 
and a sclf-addres.scd, stamped manila envelope to: Den- 
nis Mu.scatelli. R.D. #1 Box 543. Morri.sdale, PA 16858. 
I wish to express my deepest thanks to Professors Wil- 
liam Englebret and Gene Schjossbcrger at The Penn- 
sylvania State University for their critical comments and 
assistance with debugging, D 

SEE PROGRAM LISTINGS ON PAGE 98 
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ON-COURT TENNIS 

Gamestar 
Commodore 64 
Disk, joystick; $29.95 

Anyone who doesn't think compu- 
ter games have come a long way 
since Pong ought to try a few sets 
of Oii-Coiiri Tennis. It's hard to im- 
agine two games based on the same 
sport being more different. 

On-Coun Tennis features lluid an- 
imation, highly sophisticated compu- 
terized opponents in the solitaire 
mode, and true-to-life strategy. It's 
a far cry from rectangular racquets 
hitting a square "ball." In fact, the 
hardest part about learning to play 
this sports simulation is the way it 
shatters preconceptions. 

The most radical change is that the 
joystick is used to select the desired 
stroke, not move the athlete around 
the screen. In effect, On-Coun Ten- 
nis is a strategy, as opposed to an ac- 
tion, game. 

The display shows the court in 
three-quarter perspective, with the 
serving player at the bottom of the 
screen. As the onscreen character 
tosses the ball into the air, the com- 
puterist moves the joystick to start the 
volley. The direction in which the 
stick is pushed determines the place- 
incnl of the shot. Hitting the action 
button produces an especially hard 
serve. 

The computer automatically posi- 
tions the racqucteer into position to 
return a shot. The main challenge, 
therefore, is timing the swing and 
choosing the specific stroke. The 
gamer can pick a flat shot, lob, top- 
spin shot, slice, or drop shot. Wheth- 
er the bail gties left, right, or straight 
ahead depends on when the player 
swings. 

The meticulously accurate ball- 
shadow isn't just window dressing. 
It's the principal guide to timing a 
racquet stroke. This can be tricky, 
since the shadow is in a different po- 
sition, relative to the ball, depend- 
ing on whether the onscreen player 
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On-Court TennLs: an outright winner. 
READER SERVICE NO. 191 

is in the far court or the near court. 
Four robot foes are ready to bat- 
tle the computerist in a single set or 
a three- or five-set series. Each op- 
ponent has strengths and weaknesses 



vary their skill as the human player 
gains mastery of the game. 

The playing surface also affects the 
difficulty level. The ball bounces true 
on a hard court, goes faster on grass, 
and slows on clay. 

Novices are strongly urged to be- 
gin by trying one set on clay using 
the baseliners. On-Court Tennis is a 
very demanding game even at its eas- 
iest setting, and the first few rounds 
of play are bound to be error-filled 
and highly frustrating. This is one 
game that definitely repays the in- 
vestment of a couple of practice ses- 
sions. If all else fails, watch the corn- 



Fleet System can 
check any docu- 
ment against a 
70,000 word dic- 
tionary on the 
flip side of the 
disk (without ex- 
iling the program) 
and highlight all 
suspect words. 
READER 
SERVICE 
NO. 192 

and favors a particular style of play, 
'ivan Messier," for example, plays 
the baseline and boasts a terrific 
serve. "Jimmy Orr," on the other 
hand, roams the entire court and de- 
pends mo-st heavily on a superb fore- 
hand. All four are programmed to 
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SYSTEM2 
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lEi -_1 ^- 



psa #rHs __^-_: 



m ..^jl. 






Trolls and Tribulatiuas (seepage 71). 
READER SERVICE. NO. 193 



puter play itself to get some hints. 

On-Court Tennis is truly a land- 
mark computer entertainment pro- 
gram. It takes a fresh look at a sub- 
ject, video tennis, which many con- 
sidered totally played out. This out- 
standing disk proves them wrong. 

Gamestar, 1302 State Street, San- 
ta Barbara. CA 93101 (phone: 805- 
963-3487). -Amie Katz 

FLEET SYSTEM 2 

Professional .Software, Inc. 
Commodore 64 
Disk; $79.95 

What kind of word processor can 
you expect from a company whose 
latest program was 7>7i'/« Fever? Be- 
fore tossing off a flip one-liner, con- 
sider this: the company is Profession- 
al Software, whose venerable 
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A Survival Guide to tlie 
1541 Disic Drive 

This is a 40 + page book and comes complete with all 
commands and examples on how to use them. ^ 

$6.99 



Tile Compiete Boole on 
Teiecommunications 



$6.99 



A 40 + page book that will help you get started with your 
Modem. How to use It and how to access a BBS. Com- 
puServe, Dow Jones as well as up and down load. 



1541 Super ROM 



«39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 10 Second Format with Verify 

• Wo more Drive Head rattling 
during Format or Error Reading 



also Save with Replace is 
Improved 

Two times faster, Eight times faster 

when used with Turbo 64 which is included 



1541 Super ROM is 100% Compatible • Easily installed in Minutes 




APALLO COPIES IT ALL 



APALLO Does It All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 

At last a complete utility package tor the MSD Dual Drive. This 
is the first MSD utility program that does it all. The main 



• Copy Protected Disk 

• Copy Files 

• Format a Disk 

• Change Disk Name 

• Quit 



menu options include: 



Copy Unprotected Disk 
Scratcti a File 
Rename a File 
View Directory 



$39 



95 



Sure Copy will put all errors automatically on disk: 20, 21, 23, 27 and 29's. 



D-CODER 



• Transtates any machine language program into easy- 
lo-read English descriptions with complete explana- 
tions of each comntand! 

• Makes complete notations of all Important memory 
locations accessed by the program! (SID, VIC, IMOS, 
KERNAL, etc.) 

• Gives you three ways of accessing programs: 

1) Will raad and list programs Irom DISK 

2) Will read and list proarants from MEMORYI 

3) Direct uter Input (from magazines, etc.) 

• Can be used to locate and examine any machine 
language program's protection routines! 

• Can be used to easily break apart machine language 
programs for study and examination! 

• Printer option tor complete hard copy listings! 

You no longer 

need to be an i « -.^ 

G^AQg EGGHEAD to > ^^ 

I ^# read Machine 

Language. 





N-CODER «19.95 

the machine 
language manipulator... 

The perfect companion 
program to D-CODER! 

Allows you to easily make changes in ma- 
chine language programs... rigtit on the disk! 

• Rewrite ability allows code to be altered 
and then rewritten directly to the disk! 

• Features secior-by-sector scrolling 
assembly language display of machine 
language programs! 

• Notation of ASCII text equibalents lor easy 
spotting of embedded text strings! 

• Handy reference display of all assembly 
language commands and their ML 
numerical equivelents! 

• Byte splitter lor easy splitting of decimal 
addresses into low byte-high byte formal! 



C-64 
Label Maker 

Choose one to one million labels... 

$14.95 

• On-line Instructions 

• Allows Fall Editing 

• Works with all Standard Printers 

• This Program will even put your 
Disk Directory on Labels for you 



Enclose Cashiers Check Mon&y Orde^ or Personai 
Ctieck Allow 14 (Jays lor delivery 2 to 7 days lor 
phone orders Canada oiders must be in u S 
Dollars VISA - MASTER CARD -COD 



Programs tw C-64 



S2 00 S A H on all orders 



s MegaSoft 

K^LA PO Bnx lOfln Hatllfi firnimrl Wa-: 



Limited 



Seftwm Submifttiont lnvlt«d. 



P O Box 1080, Battle Ground, Washington 98604 

Phone (206) 687-S1 16 • BBS 687-5205 Ahei houi? ComouHT lo Comouier 



DMS-E 
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TURBO 64 

Turbo 64 will turn your 1541 into a super fast and eWiereni disk dfive Loads 
programs five K> eight times lasler, worl<s with 99% of your basic and machine 
language programs The master flislt allows you to put unlimited Turbo 64 
boot copies on all your disks. This disk also includes 

Auto Run Bool Maker 

Auto Run Boot Maker will load and auto run your baste or machine language programs. 




$19.95 




DMS-Errors 20.21.22,23,27&29 
Formal Single Tracks 
Head Disk Errors 
V^ Track Reader-read and select 
Hi track 

W Tfack Formatter-Format a 
disk wuh Vj tracks This is 
where the next proiection 
schemes are commg (rom. 
Drive Mon-Oisk Drive 
assembler /disassembler For 
your 1541 

The Doc-Oisk Doctor Ihal reads 

code under errors. 

Sync Maker-Ptace a sync mark 

on any track out to 41 Also 

used lor proiection 

Sync Reader-Check lor Sync 

bits on any track out to 41, 

Change Drive No. -Changes 

drive number (7.30) 



Diak Logger-Finds starting track. 

sector: start and end addresses 

Ot»k Match-Compare any two 

diskettes Byle lor Byte. 

New Wedge-Easier to use DOS 

wedge 

ID Check-Check ID'S on any 

track 

Unscratch-Resiore a scratched 
file 

View RAM-Visual display ol the 

tree and used sectors on a 

diskette. 

Read /Write Test- 1541 

performance test 

Repair a track-Repair a Irack 

with checksum errors. Reads 

code under errors and restores 

track 

Fast Format-Format a disk in 

]ust 10 seconds (wilh venlyl) 



EDFOURRE. 
•HHNDBDnH 



3rd 

Edition 



THIRD EDITION! NOW AVAILABLE! 
It you're tired of being harassed by protected software and too many copy 
programs, then this is the book for you! This 224 page manual covers the 
gambit from legalities to protection methods to step-by-slep back up pro- 
cedures. Now you can learn both how to protect and unprotect software! 
The techniques covered include copying cartridges to tape or disk, tape pro- 
tection, and disk protection. Disk protection covers error no's 20. 21 , 22, 23, 
27 and 29 plua single Irack formatting, header modification, header swapp- 
ing, hall track reading and writing, reading and writing modified bit densities, 
formatting illegal tracks/sectors, sync writing and moref The Third edition ex- 
plains, lells how to detect and how to write tfiem with included software. 
Eleven useful utililies and many protection listings! Our disk analysis programs 
reveal the protection methods used on your originals, A diskette with all soft- 
ware is available for a minimum extra charge. This may not be the only traok 
your should have tor the C-64, but it is certainly the one Ijook you should 
not be withouti 



C64 Book only $19,95 US 

Book & Disk of all programs S29.95 US 

Vic 20 book . . . Can. & Tapes only $9.95 us 

THIS MANUAL DOES NOT CONDONE PIRACY 
•SHIPPING: $2.00 



WAR GAMES 
AUTODIALER 



1-Auto Dial will automatically dial a set of numbers you choose. 
2-Review Numt»r» will review numbers ttiai were answered by a computer 
3-Ssve Numbers will save numbers where a computer answered. 
4-Hardcopy of Numbers will pnnt out lisl of numbers where a computer answered 
5-LOAD Number* will load in numbers to continue where it left off. 
6-Contlnue will pick up dialing where il was Inierrupted. 



$29.95 



KARTRIDGE KRACKER 

HO liV 'foii can own this unique and powerful tool 
which will allow you to dump the contants at 8K 
and 16K cartridges onto disH! But what's really 
greet is that you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gets YOU INSIDE the cartridge! Put 
all your favorites on disk and get rid of the clut- 
ter This package provides your with the software 
and hardware needed to get started. Program on 
disk included. (Some cartridges require u$e of ex- 
ternal RAM not included) 




$44.95 



The Original 
Book of Facts 

UNLOCK THE MYSTERIES 
OF THE COIulMODORE 
—Simple Instructions 
—Easy step-by-step examples 
—Tricks you can do your 

first day 
-Introduction 10 color, sound 

and much more 
— Includes a routine to protest 

your own programs 
—NO MATTER what your 

experience, the Original 

Book of Facts is ^ 

for everyone! ^6>99 



The Advanced 
Boole of Facts 

EXPLORING 
YOUR COMMODORE 

—How to use a machine 

language monitor 
—Tips on how to unprotect 

your software 
—Advanced protection lor 

your own programs 
—Full size reference charts 
—How to design your own 

menus and more,,, „_^ ^_ 

«6,99 



BULLETIN BOARD 

Set up and operate your own bulletin board with one or two disk drives. This 
one has all the features arid you can customize it easily yourself. . 



1-RUN MEGASOFT BBS 
2-CREATE IMEGA FILES 
3-ADD TO SYSOP'S CORNER 
4-NEVI/ SYSOP'S CORNER 
5-READ MESSAGES 
&-SCRATCH MESSAGE 
7-CYCLE MESSAGES 
S-READ SYSOP MESSAGES 



9-WRITE OPENING MESSAGE 

lO-READ LOG 

11 -CYCLE LOG 

12-READ DOWNLOAD FILE 

13-SCRATCH DOWNLOAD FILE 

14-ADD TO OTHER SYSTEMS 

15-CREATE OTHER SYSTEMS 



$59.95 



Enclos# Cashiers Ch«ck. Mon»y Order, or Persona^ 
Check AlloA ii days tor tfetivery. 2 to 7 days lor 
phonie orders Canada orders musi be m U S 
Ooiars VtSA " MASTER CARD -COD 



PfOgrams for C-64 



S? 00 S & H on all orders 



s MegaSoft 

tOt^ Pn Rnx inAn Rartle nmnnH Wat 



Limited 



SohWire Submluloni Invited. 



P O Box 1080, Battle Ground. Washington 98604 

Phone (206)687.5116 • BBS 687-5205 Atte- Hours Compuier lo Compuler 



Reader Service No- 178 
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ISSUE #1-JAN, -84 $4.00 

64 V. ihe Peanut! Telccommunicalions! 
Tales of the Commodore! And ready 
to enter: Mulii Draw 64 Graphics Sys- 
tem! Interrupt Music Maker/Editor! A 
Peek at Memory! Sequential Files! 



ISSUE #2 -FEB. '84 S4M 

Illustrated tour of the 1541! Artificial 
inteiligetKe! Synapses Ihor Wjtosenko 
interviewed! And ready to enter; Music 
Maker Pan II! Screen Manipulation! 
Night Attack! Relative Files! 



ISSUE #3 -MAR. '84 $4j00 

Anatomy of Ihe 64! Printer interfac- 
ing for VIC & 64! Educational soft- 
ware series begins! And ready to en- 
ter: Address Boiok! Space Lanes! Ran- 
dom Files on the 64! Dynamic Power! 



ISSUE Ij'4-APR. '84 $4jOO 

Petspeed and Easy Script tutoiials! 
Primer interbcing continues! Laser- 
disc! And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! Low- 
er case descenders on the 1525! 




ISSUE #5-MAY '84 $4.00 

Future of Commodore! Inside BASIC 
storage! Memory manage mem on the 
VIC & 64! Spreadsheets! And ready 
to enter: Math Master! Air Assault! 
Biorhythms! VIC Calculator! 

ISSUE #9-SEPT. '84 $4.00 

Pnjgram your own text adventure! 
Build a C-64 cassette interface! Vid- 
eo RAM! And ready to enter: Salvage 
Diver! DOS! Sound Ejiplorer! Castle 
of Darkness! Base Conversions! 



ISSUE #6-JUNE '84 UM 

Game programming column begins! 
Program generators! Rupert on input- 
ting! Memory management continues! 
And ready to enter: Ftost Time for the 
64 & VIC! Alpiner! Sound Concept! 

ISSUE #10-OCT. '84 $4.00 

C-64 Graphics pnjgrams! Bit- mapped 
graphics! Joystick programming! And 
ready to enter: VIC 40 Operating Sys- 
tem! BAM Read & Print! Emerald Ele- 
phant of Cipangu! Lawn Job! 



ISSUE iH-JULY '84 $4^ 

MSD Dual Disk! Database buyer's 
guide! Training your cursor! Screen 
displays! File Sleuth! Usei^ Groups! 
And ready to enter: Renumbering! 
Checklist! Math Defender! Brisk! 

ISSUE #Il-NOV. '84 $4.00 

Music programs & keyboards for the 
64! Graphics feature continues! And 
ready lo enter: fTE word processor! 
Block Editor! Alternate Character Set 
for the 64! Tunnel of Tomachon! 



ISSUE #8 -AUG. -84 $4M 

Choosing a word processor! Compu- 
tational wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter: Micro-Minder! Direc- 
tory Assistance! Terrible Twins! 

ISSUE #12-DEC. '84 $4.00 

Buyers guide to printers! 1 525 primer 
tutorial! Custom characters! User 
Guide 10 KMMM Pascal! Diving imo 
BASIC! And ready to enter: Construc- 
tion Co.! Space Patrol! Cross Ref! 



ISSUE #13-JAN. -85 $4.00 

VIC/64 OS exposed! Sprites! 1541 de- 
vice # disconnect switch! Ghostbus- 
lers! And ready to enter: Ultra Mail! 
Music Tutor! Alice in Adveniureiand! 
Midprini! To the Top! 



ISSUE #14-FEB. '85 $4.00 

Primer Interlacing! MullicolDr ^pri^c^! 
M(xlcms! Bulletin bivards! Thciiry of 
game design! And rcadx lo enter: Fu- 
lurcwar! FonlUNia! VIC Eriscr! Insur- 
ance Agent! Tclclink 64! 



ISSUE #1S-MAR.'85 $4.00 

Making multiscreen gamcboards! In- 
side the Plus/4! Commodore DOS! 
And ready to enter: Old Routine! Pro- 
grammable Functions! Automatic Line 
Nos.! Home Budget! Salmon Run! 



ISSUE #16-APR.'85 $4.00 

Assembly language column begins! 
Programming the joystick! 1541 disk 
drive alternatives! And ready to enter: 
Hop Around! Faster 64! Booler! 
Elecheck! BASIC Trace! Space Hunt! 
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ril 15: 718-383 8909). 
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WordPro was among the first office 
quality word prtKessors for the C-64. 
Their latest entry. Flea Sysiem 2, 
easily outclasses WordPro, for it 
packs an onboard spelling checker 
and several other distinctive features 
that are handy in an office environ- 
ment. 

Business users will appreciate the 
choice of viewing a 40-, 80-. or 120- 
cokimn display. (The screen scrolls 
horizontally when you're keyboard- 
ing in the wider modes, which are 
excellent for preparing heavily tab- 
ulated reports.) A setup program that 
is run prior to the first time you use 
the word processor allows you to 
pick the colors of the screen's bor- 
der and background as well as the 
text. Regrettably, the display lacks 
automatic word-wrap. Words get cut 
off at the right column and are con- 
tinued on the next line, which re- 
stricts onscreen readability. There is 
one consolation. When working in 
40-column mode, you can "preview" 
the document and see a vertically 
.scrolling 80-column display of the 
document's ultimate appearance and 
the effects of all formatting com- 
mands. (You cannot write and edit 
while previewing, however.) 

While composing this review with 
Fleet Sysieni 2, I was considerably 
dismayed to .see some of my snappi- 
est sentences abmptly vanisih into the 
Twilight Zone. Whenever I pressed 
the return key while the cursor sat 
on an existing line of text, everything 
between the cursor and the right side 
of the screen disappeared. My spir- 
its were soon lifted, however, by the 
discovery of a feature called the "ex- 
tra text" area, which accommodates 
as many as 450 screen lines of text 
that can be manipulated in several 
practical ways. While learning the 
system, for example, you can load 
a "help" flic into this area and flip 
back and forth between your ongo- 
ing dtK'umcnt and a li.st of commands 
and functions and their respective 
keystrokes. Frequently used words, 
addresses, even whole chunks of text 
can be kept here and inserted into the 
ongoing document. This is accom- 
plished by designating abbreviations 
for them in the extra text area. For 



this review, I reserved the letters "od" 
to indicate the words "ongoing doc- 
ument." While writing the above .sen- 
tences, I merely typed the fl key. the 
letter "a" (to indicate I wanted to "ap- 
pend" a phra.sc from the extra text 
section) and the letters "od". Text 
stored here can also be automatical- 
ly inserted into blank space within a 
document, which serves to facilitate 
the rapid printing of personalized 
form letters. 

When you're working in the main 
text area, a status line that looks like 
: X : F : I : S : N : reminds you of 
the current editing mode. The fi or 
RUN/STOP key works like a clutch. 
Press fl and the F lights ups; then 
hit X to enter the extra text area. A 
similar two- or three-keystroke pro- 
cess is also engaged to conduct op- 
erations such as marking a range of 
lines to be copied. era.sed or funneled 
off to another part of the ongoing 
document. A range is marked by 
moving the cursor down to highlight 
the chosen text, but you can only 
highlight whole lines. If only half the 
line is to be transferred or erased, 
you must use the "paragraph split" 
command to shove the other half 
down to the next line. This is the 
most awkward aspect of editing with 
Fleet System 2. Another common 
editing operation, shifting between 
insert and overwrite mcxies, is swift- 
ly executed by tapping the t3 key. 

Cursor control is limited to hop- 
ping to the top of the .screen, begin- 
ning of the diKumcnt. or down to the 
next line. Of course, you can glide 
freely around the current screen \ia 
the cursor keys, but cannot skip di- 
rectly to the end of the immediate 
screen or the dcKument, or flip to the 
next or previous screen load. "Vou can 
"speed-scroll" through the text, but 
this .still isn't as useful as the ability 
to flip screens and is also rough on 
the eyes. At least it is easy to delete 
the next word or sentence, in which 
case the program highlights the text 
and offers you a chance to bail out 
before consigning the offensive text 
to extinction. Fleet Systeniv, format- 
ting commands kx)k familiar: one or 
more lines contain marks .such as lm5 
(left margin is set for five spaces). 



which can be embedded throughout 
a document to change centering, jus- 
tification, and other formatting fea- 
tures. Underlining and other printer- 
supported features can be addressed, 
and you may even indicate Spanish 
accent marks if using a dot matrix 
printer. (Compatible printers are 
listed in the setup program's menu 
and encompass a range of twenty- 
three popular machines including the 
FX-80, TTX, Gemini, Brother. Oki- 
data 82, TP-I , and the ComnuKlore 
printers.) 

Fleet Systems major selling point, 
a 70,000 word dictionary, is on the 
opposite side of the program disk and 
can be accessed without exiting the 
word processor. It rapidly checks ail 
the words against this dictionary and 
one created by the user, then high- 
lights all "suspect" words. These may 
be ignored, added to the user diction- 
ary, or corrected on the spot. (The 
user dictionary can hold up to 12.CX)0 
words.) After saving the document 
and exiting to BASIC, you may avail 
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Slop playing "Hlde-and-Seek" wilh 
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yourself of some intriguing features 
in the options program. A frequen- 
cy and statistics report will list all 
selected words and the number of 
times they appear. You'll also be in- 
formed of the number of different 
words, average word length, num- 
ber of sentences, and other statistics 
that may or may not be significant 
to you. {You don't have to access this 
program for the most practical such 
option: two keystrokes will instan- 
taneously summon up a precise word 
count at any time.) 

A single document may be up to 
eight or nine pages in length, and 
files can be linked to simultaneous- 
ly print a document that was broken 
into several files. Saving and load- 
ing flies is a simple process, and the 
program supports one or two disk 
drives. Headers, footers, and page 
numbering. Search and Replace, 
mailing labels and other standard fea- 
tures are effectively implemented, 
and Fleet System has a couple of fea- 
tures that are less common. You can 
load sequential files saved by a data- 
base or other program, convenient 
for preparing the data to be used in 
form letters and other mail merge op- 
erations. Numeric tabs simplify 
aligning columns of numbers con- 
taining decimal points. While in nu- 
meric mode, you may add or subtract 
columns of numbers. You can also 
total all the numbers in a paragraph 
or range of lines, an unusual and 
creative option. 

Fleet System is easy to learn and 
operate. The manual has a lucid tu- 
torial for beginners; old hands will 
prefer to consult the index and flip 
to the appropriate page in the refer- 
ence section. Because the program 
doesn't have enough cursor control 
"shortcuts" and makes range-.setting 
a relatively awkward process, it is ill- 
suited for composing term papers, 
essays, or anything demanding inten- 
sive revision. Fleet System 2. with 
numerous features that emphasize 
business-oriented word processing, 
is more valuable in an office where 
the workload includes extensive 
preparation of tabulated and colum- 
nar material. 

Professional Software, Inc., 51 
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Fremont Street, Needham. MA 
02194 (phone: 617-444-5224). 

—Shay Addams 

SUPER PRINTER UTILITY 
PROGRAMS 

Cardco, Inc. 
Commodore 64 
Disk; $39.95 

The newest addition to Cardco's 
Canlware software line, this disk 
contains such nifty entries as screen 
dump utilities, a banner headliner, 
rudimentary word processing and 
mailing list programs, a calculator. 
a screen drawing program, and a 
sprint print printer buffer. Also in- 
cluded are file conversion. BASIC 
program cross reference, 24K file 
printer buffer, and index generator 
programs. On the Hip side is a utility 
for viewing the screen images also 
found on this side of the disk. 
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Sample screen dumps. Ahoy! logos 

generated with banner headline utility. 
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The Super Printer Utilities pro- 
gram, the most impressive of the lot, 
allows you to program into the 
C-64's memory specific data about 
the type of printer you're using. It 
also provides several utilities for ex- 
ecuting screen dumps, initializing 
and exiting keyed routines. ASCII 
screen dumps, reverse screens, and 
a host of other useful POKEs and 
SYS commands for using the features 
of the program. Once loaded, the fa- 
miliar "ready" prompt appears on the 
screen, telling you that this data is 
now in memory. One nice feature is 
that you can specify in which block 
of memory you'd like to store this 
printer data and command sequence. 
You're given a choice of $C400, 
SCOOO, $9400, $7400. or $5400. 
This is useful in avoiding "address 
conflicts" when programming in ma- 
chine language. Once you've cho.sen 
the load address, the POKE values 
and SYS commands for that address 
are displayed. You're also given the 
option of printing this information 
out for future reference, if desired. 
For example, if $C400 were chosen 
as the load address, the correspond- 
ing command list would read: 

Screen Dump (Hor.) SYS 50176 

Init Keyed Routines SYS 50179 

Exil Keyed Routines SYS 50182 

Screen Dump (ASCII) SYS 50185 

Screen Dump (Vert.) SYS 50188 

Reverse Screen POKE 50194. S 

Reverse Character POKE 50195. C 

Force Flag POKE ,50196. F 

CKOl Enable POKE 50197, KE 

Output Mode POKE 50198. OM 

Device # POKE 50199, DV 

Secondary Address POKE 50200. SA 

Width (Hor.) POKE 50201. W 

Color Mode (Ven.) ...POKE 50202. CM 
U.ser Screen Enable ...POKE 5020.1. UE 

Lores Stan Page POKE 50204. LO 

Hires Start Page POKE 50205. HI 

Color Start Page POKE 50206. CO 

Prntr Type (ASCII) POKE 50207. PT 

Non-ASCII (ASCII). ...POKE 50208. NA 
2x2 Color Dots ( Vert. ). . . . POKE 502 1 1 . C2 
4x2 Color Dots (Vert.).... POKE 50243. C4 

Keypad Definitions POKE 50275. KD 

Utility Programs 50417 

Examples of the screen dumps 
possible are shown herewith. Each 
of the image dumps was executed 
with a simple SYS command: one 
problem I encountered, however, 
was the frequent crash of the pro- 



grani when trying to dump more than 
one screen. I was able to return to 
the selection menu sometimes -on 
most occasions, though, the screen 
would .scroll with a "FORMULA 
TOO COMPLEX ERROR" message 
and I couldn't recover from the crash, 
no matter what I did. This meant I 
would have to shut off the C-64. turn 
it back on, and reboot the program 
from scratch. If it only happened 
once or twice, I wouldn't even men- 
tion it. But since it was the rule rath- 
er than the exception, be aware that 
this program has a definite tenden- 
cy to self-destruct! 

I've al.so included .some dumps of 
the "BANNER HEADLINER" pro- 
gram contained on the disk. You're 
given a choice of "Gothic" or "mag- 
netic" type styles, and a choice of 
short or tall letters. Once these choic- 
es have been made, you may enter 
up to 254 characters of text or punc- 
tuation and dump it to your printer. 
Possible u.ses for this feature include 
making banners (happy birthday, 
welcome home, etc.) or signs for fly- 
ers (garage sale today, no parking). 

The other utilities are of the "bare 
bones" .school . The word processor 
has no refinements whatsoever, nor 
dews the nrailing li.st utility. They are 
useful, however, for extremely light 
duties. 

The 44-page instruction manual is 
good as far as it goes, but contains 
an awful lot of ambiguity. A case in 
point is the print-dump command 
listing above. Take a look at the last 
line: "Utility Programs.... 504 17." Is 
that POKE 504 r? or SYS 50417? 
While it may not seem like a big 
deal, if you need to access one of 
these features, typing in a SYS in- 
stead of a POKE may result in a 
cra,sh. Another question unanswered: 
is it possible to dump, say. a play- 
screen from Zax-xon? It probably is. 
but /don't know how -the dcK'umcn- 
tation fails to make any [iiention of 
.such abilities. 

Users of Cardco's Write Ncm:' 
word prtx;essi)r will like the program 
however, since it includes utilities to 
convert ASCII to Wnw N(w! formal 
and vice versa. Additionally, it will 
allow you to convert Write Now! files 



for transmission over a modem. 

All factors considered, I was un- 
derwhelmed by the Super Printer 
Utility Programs. The crashes 1 men- 
tioned and the lack of complete doc- 
umentation made the disk tedious to 
use, and not at all up to Cardco's us- 
ual tine standards. 

Cardco, Inc., 300 S. Topeka. 
Wichita, KS 67202 {phone: 316- 
267-6525). -Tom Benford 

STAR SG-10/15 PRINTERS 

Star Micronics, Inc. 
SG-10: $299; SG-I5: $499 

I've used a Star Gemini I5X dot 
matrix printer for the last two years, 
and come to regard it as a reliable 
workhorse, proven through thou- 
sands of hours of use to be rugged, 
dependable, and flexible for a great 
number of applications. So when Star 
announced its new, improved version 
of the 15X, called the SG-15, I knew 
I had to get my hands on one and put 
it through the paces. 

What Star hits done is make a gcxxl 
thing even better. All the features of 
the older mtxlcls have been retained, 
but enhancements have been made. 
Even the throughput speed has been 
increased by a full 20%! The added 
features make the SG- 10 and SG- 1 5 
the printers many u.sers have been 
waiting for. 

Thc^SG-10 and SG-15 arc direct 
replacements in the company's prod- 
uct line for the Gemini lOX and 15X. 
The difference between the two new 
models is the carriage size, the SG- 
10 having a 10" carriage, the SG-15 
a 15", (The one other difference is 
the I5's I6K buffer-see below.) 
Since I often have occasion to use 
spreadsheet software and need the 
wide paper capacity, I chose the 15. 

Externally, the SG-15 looks quite 
similar to its predecessor, the I5X. 
The function controls are of the "soti- 
louch" variety, replacing the push- 
switches of its older brother. That's 
the only obvious physical difference. 
The other improvements are nK>rc 
subtle, but they show their worth as 
soon as you activate the printer. 

The Gemini lOX and 15X were 
equipped with 4 DIP switches incon- 
veniently located on the back of the 
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printers. These were used to select 
the resident character set on power- 
up. linefeed on or off. end of paper, 
and other printer functions. On the 
new SG-10 and SG-15. the DIP 
switches have been moved to a more 
accessible location: the left side of 
the printer. But in addition to making 
theiiT easier to reach. 8 DIP switch- 
es have been added to the original 4. 
Why the extra switches? To handle 
the configurations for the enhanced 
functions, natch! And what enhanced 
functions they are. 

The SG-15 comes with a 16K print 
buffer as standard equipment, dou- 
ble the capacity of the earlier Gem- 
ini 15X. This means that the printer 
itself can store up to I6K of infor- 
mation and hold it in memory until 
printed, freeing up the computer for 
other uses while printing continues. 
This humongous buffer proves its 
worth when using wt)rd processing 
.software or printing out lengthy 
BASIC program listings. An optional 
buffer board is available for the 10. 

Both SG models feature (as did 
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SG-10 & 15: near letter quality. 
READER SERVICE NO. 20! 

their predecessors) friction and trac- 
tor feed as standard, allowing you to 
use tractor-feed paper for listing and/ 
or rough drafts as well as single 
sheets for correspondence. These 
new models also allow hex dumps 
and downloadable character sets. On 
internal ROM are international char- 
acter sets for French, German. En- 
glish (Britain), Danish. Swedish, 
Italian, and Spanish. These sets con- 
tain umlauts, pound signs, circum- 
flex letters, and other characters and 
punctuation indigenous to the speci- 
fic language. Additionally, you may 
custom-design your own characters 
and load them into the printer, use- 
ful for including logos and other 
"personalized" touches in your print- 
outs. Of course, the entire graphic 
character set is available for printing 
out listings of your programs exact- 
ly as they were entered. Both the SG- 
10 and SG-15 are capable of printing 
out ultra high resolution bit image 
graphics as well. Several varieties of 
condensed, expanded, and enhanced 
print are also possible on either of 
these models. Of course, the printer 
interface you utilize has a lot to do 
with how many "tricks" the printer 



Normal btar mcDde. 


Bold print sample. 


Near Letter Quality. 


Underscored sample 


Italic sample. 


Emphasized mode. 


E: > i |Z3 is. r~( ciJ es cd _ 


Condensed print aode. 


Condensed with underscore. 


Condensed bold print. 
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Print samples from SG-IO and 15. 



will perform, but with the added DIP 
switches, it's ea.sy to get the most out 
of just about any of the popular print- 
er interfaces. Both the SG-IO and 15 
come with Centronics parallel input, 
but either can be had with RS-232 
serial input as an option. 

A few words about the documen- 
tation are in order. The 235-page us- 
er manual is superb, providing infor- 
mation on everything you need (or 
want) to know about DIP switch set- 
tings, control characters and func- 
tions, changing defaults-the whole 
nine yards. The only thing I took ex- 
ception to was the continual mention 
of "IBM mode." The printers have 
two basic operational modes: Star 
and IBM. Either is selected or dese- 
lected by the DIP switches. This is 
to accommodate the broadest possi- 
ble market of users, and apparently 
the folks at Star figure these two 
printers to be hits with Big Blue us- 
ers. Included in the manual are ta- 
bles and pin-out assignments for Ap- 
ple, TRS-80, and CP/M-based com- 
puters, but nary a word for us Com- 
modore folk! Get with it. Star! Don't 
you realize that there are more Com- 
modore 64s out there than the other 
brands combinan 

A ho.st of useful provisions are in- 
cluded in the printers' operating sys- 
tems, such as the capability for su- 
perscripts, subscripts, variable hor- 
izontal spacing control, multistrikes 
for boldface, underlining, and itali- 
cizing. The.se printers are truly a 
dream to u-se for word processing 
with the inclusion of these useful and 
powerful features. 

Both of the SG printers use inex- 
pensive multipass two-spool nylon 
ribbons. I've always liked this fea- 
ture about Star's printers, since these 
ribbons are cheap and readily avail- 
able at most stationers. 

I've saved the best and most im- 
pressive feature for last: near letter 
quality (NLQ) printing. As the name 
implies, this mode emulates the print 
image of a daisy wheel printer or tra- 
ditional typewriter. It does this .so 
well, in fact, thai unless you look 
very close at the printout, you'l! think 
it is the product of a daisy wheel 
Print speed is reduced by about half 
in this mode, since the print head 
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makes two passes for each character. 
(The first pass prints out the "normal" 
or draft-mode character, while the 
second pass fills in the open area be- 
tween the dots and embellishes it 
somewhat, adding serifs and other 
finishing touches.) In the past, Tve 
used the Gemini for my rough drafts 
and a daisy wheel for the finished 
product. The print quality is so good 
in the NLQ mode that IVe become 
a "one printer user" again. Anybody 
want a used daisy wheel printer? 

Star Micronics, Inc., Pan Am 
Building Suite 3510. 200 Park Ave., 
New York, NY 10166 (phone: 212- 
986-6770). -Tom Benford 

TROLLS & TRIBULATIONS 

Creative Software 
Commodore 64 
Disk; $24.95 
{See screen on page 63) 

Longtime joystick jolters often 
feel there's nothing new under the 
sun. Their problem is that they're 
looking in the wrong direction. A 
look under the street will reveal 



TroUs and Tribulations, Creative 
Software's sewer-based action game 
featuring superb music and graphics 
and a veritable cesspool of activity. 

Your eight-lived troll must trav- 
erse a scrolling multilevel maze, 
shooting cretins and eschewing 
skulls, buzzards, and spiders while 
collecting treasure. Each move must 
be planned with care; blindly leap- 
ing from peak to precipice will send 
your troll plunging into the lapping 
waters below. That is a fate you 
want to reserve for the cretins that 
descend from above. Your troll's 
shots turn them into eggs which you 
attempt to shove to a watery grave 
before they hatch . 

At the onset, you choose from 
novice, intermediate, and expert 
levels of play by opening the cor- 
responding door. Your troll then en- 
ters the first set of horizontally 
scrolling mazes. Locked doors ap- 
pear at the end of all sections, only 
to be opened by the key which you 
acquire within the maze. Keys and 
treasures are collected by leaping 
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from ledge to ledge or dropping to 
lower shelves. Strategically placed 
trampolines will assist in reaching 
higher levels. Players may at first 
be inhibited by the need to vault 
moving skulls and buzzards while 
within low-ceilinged tunnels, but 
your troll cannot hit his head. 

While the lower levels are quite 
masterable, the higher ones will 
prove a true challenge. The progres- 
sion from easiest to hardest is grad- 
ual enough to maintain interest as 
ability increases. 

I do have two bones to pick with 
an otherwise delightful game. First, 
there is no way to bypass earlier sec- 
tions and begin deeper in the maze. 
Second, high score is provided, but 
no means of saving the information 
to disk (the instructions cite mem- 
ory limitations). Who cares about 
keeping track of high score in a 
single sitting? 

Creative Software, 230 East 
Caribbean Drive, Sunnyvale, CA 
94089 (phone: 408-745-1655). 

—Scott Kincaid 




HAVE YOU BEEN DRIVEN CRAZY 
TRYING TO BACKUP YOUR EXPENSIVE 
SOFTWARE? NOW YOU CAN RELAX! 

CMTTnniC^K.tLI ™ A"^ VIC8c64 

UA I I ULla Jll D^ ^ BEACOPYCADtCASSETTE AIOEDD 



DITIDDISK 64 is a utility progran that 
hcis been tested and found to be capable 
of copying most protected disks produced 
by the major software houses. A notable 
attribute of this copy program is its 
lack of a large manual. There are no 
menus and ro disk analysis routines. 
The screen pronpts will be all that 
you'll need to get you through 99+% of 
your copying. 



BEACOPYCAD (CASSETTE AIDED DUPLtCATOR) NOW 
VTDU CAN MAKE BACKUP COPIES OF ALL THE COSTLY. 
NGN SAVEABLE CASSETTE PROGRAMS YOU BOUGHT. 

OUR BACKUP VI ,0 UTrLITY pnoaOAM WILL LET YOU 
MAKE DUPLICATES THAT BUN. 
BACKUP VI WILL WORK WITH A STANDARD 5K 
UNEXPANOEO VIC MEWOHY EXPANSION IS REQUIRED 
TO COPY PROGRAMS LONGER THAN 3K BYTES. 



TAPE 

$24.95 



DISK 



Dealers inquiries invited!! 



ONLY 

$34" 



THE BEST 

YOUCAHBUY 



ORDERING 

INFORMATION 

ACX>$2 00PEnOFIOER 

FOR SHIPPING. 

WE ACCEPT VI SA. MASTE RCAfiO. 

CHECKS. MO 

COD ADDS3 00 EXTRA. 

California Residents, Add 6% 
Sales Tax to Orders 



VISA* 



SOFTUJARC PLUS 

6201 C Greenback Lane (9l6) 726-8793 Citrus Heights. CA 95610 



^AostsrCardj 
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PFS.FILE 
PFS.REPORT 

Software Publishing Corporation 

Commodore 64 

Disk; File $79.95, Report $69.95 

PFS.FHe, along with your C-64. 
disk drive, and optional primer, 
forms a fairly full-featured database 
management system. You design the 
record format with full use of cur- 
sor control, delete, and insert keys. 
You have the top 21 lines to desig- 
nate as many as 50 fields. Not 
enough? Hit a key and you get a 



blank screen. More and more — up 
to 32 .screens full. Be careful with 
those long record formats, though: 
if you fill out every field in a 32 
screen record, only five records will 
fit on your diskette. Realistically, for 
a simple name and address file, you 
will be able to store about 500 
records. If the addresses are short, 
you might even store File's max- 
imum of 1000 records on your 
diskette. A "percent full" reading at 
the bottom of the screen will give 
you some idea of how you're doing. 



New Technological Breakthrough ! 

\ ULTRABYTE 
1^ DISK NIBBLER 



The Ultimate Bit by Bit Disk Duplicator 
For The Commodore 64 and 1541 Disk Drive 



ULTRABYTE DISK 
ALL SOFTWARE 



NIBBLER COPIES 
EXCEPT ITSELF 



SATISFACTION GUARANTEED 



Return for refund within 10 days 
if not completely satisfied 



» 39.95 



Introductory Price 



plus $ 3.00 Shipping and Handling 

MASTERCARD, VISA, CHECK, of M.O.. 

Foreign Orders or COD Add $ 2.00 

Calif. Add 6,5 % ( i 2.60 ) Sales Ta. 

BACKUP COPIES S 20.00 PLUS S 3.00 SHIPPING 



Based on new proprietary Disk Operating System (DOS) that 
reads and writes bits on the disk independent of format. This 
process, called nibbling, treats disk errors, extra sectors, 
renumbered tracks and other protection schemes exactly the 
same as ordinary data. 

• Simple to use. Just load and run 

• Fast. Copies entire disk on single 1541 in 8 minutes 

• One easy step. No separate analysis or error production 

• Uses revolutionary Track Scan Technology to make 
an exact replica of the original disk. 

Write or Call 24 Hour Order Line 

ULTRABYTE (818)796-0576 
P.O.Box 789 La Canada, CA 91011 
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From File's main menu, you can 
choose to design a new format or 
change an old one, add data, search 
through the records you have 
entered and update tho.se with 
mistakes, print or delete records in- 
dividually or in groups, or return to 
BASIC, As you work to create the 
perfect design for your records, use 
the Insert function cautiously. The 
Clear key is right next to the Insert 
key; hit Clear and all your design 
work will disappear. The designers 
of File should not have made clear- 
ing the screen so simple. When you 
design your second database, with 
a different record format, you will 
need to use a new diskette, if you 
have lots of short li.sts to keep. File 
can cat up your blank disks. And 
don't forget to format those blank 
data disks before you load File; it 
has no capability to format them for 
you. 

When you want to search for a 
particular record. File can match as 
many fields as you specify. You can 
ask for an exact match (full first and 
last name), a partial match (a word 
or characters in the middle of an en- 
try), a range of numbers (all zips 
from 32900 to 32950). or a "not" 
match (all records that do not match 
the search specifications). Searching 
for a record ba.sed on the contents 
of the first field will never take more 
than three .seconds. Use any other 
field and the search may take much 
longer. File does not allow you to 
save your search specifications to 
disk. 

Getting a printout of your records 
is easy. First tel! File which records 
to print using the same options that 
are available for a search. Then tell 
it which fields to print from each 
record and whether to print each 
field on the same line or a new line. 
This option allows you to print mail- 
ing labels; however, since File can 
only print fields in order, the possi- 
ble formats for your records are 
limited. File can sort as it prints, but 
it can only sort on one field. File lets 
you store up to eight print formats 
including search specification.s that 
you can use or edit at a later time. 
A critical feature of any database 
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Quality For Your Commodore 64 

ORDER BY PHONE AND WE PAYFOR YOUR CALL! 

TO ORDER CALL 612 922-0516 • $1.50 OFF EVERY PHONE ORDER 

^§ 

The fastest, most reliable and easiest-to-use copy 
prograam for the Commodore 64". 

Contains a TRUE INTELLIGENT NIBBLER which 
copies all the information on a disk and even the 
newest copy protection including half tracks and 
track 36 + 

FULLY AUTOMATICIThere are no parameters to set. 
You don't even need to swap disks when using two 
drives. 

REVIRGINS DISKS rather than erasing them, and 
also contains a utility that automatically backs up 
any data disk and removes all data errors in just two 

minutes. 

NOW ONLY $39.95 

Seven day money back guaranteed. 

D-maoEm 

The 100% 1650 compatible modem. Order it with 
Q-Term and get both for only $69.95 
Seven day money back guaranteed. 



completely supports 



The printer enhancer and full spooling buffer for the 
Commodore 64'". 

■ Gives you control of your printer while printing 

■ Enhances the speed of your printer 

■ Provides the 1525 and 801 printers with true 
descenders and underlining 

SPECIAL $19.95 

DTERm 

■ Fully Menu Driven 

■ Auto Answer ~ Auto Dial 
modems of this type 

■ On Line Printing ~ enables you to print while the 
computer is in terminal session 

■ Full uploading and downloading - enables you to 
send files to and from the disk over the phone 

NOW ONLY $29.95 

GRAPHIC PRINTER CAD1£ 

The Graphic Printer Cable is the truly universal 
graphic parallel printer interface for the Commodore 
64'", S X 64'", and Vic-20'" computers. 

■ For virtually all Centronics-Parallel Dot Matrix 
Printers 

■ An intelligent 2k buffer is standard 

■ Software Configurable allowing Commodore™ 
printer emulation 

External printer selection switches 

NOW ONLY $89.95 



STAR SG-10™ printer 
with GPC ONLY $339.00 

Star SG-10 features: 

■ 120 CPS bidirectional-logic seeking printer 

■ Full graphic-word processing features! 

■ Near letter quality mode! 




One West Lake Street Suite 320 

Minneapolis, MN 55408 

(612) 922-0516 
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is the ability to redesign you data 
files. Inevitably, you will want to add 
a field to each record, rearrange the 
fields, or delete an unnecessary field 
to make more room on the disk. File 
handles all these changes with no 
problem as long as your disk is less 
than 50 percent full. It is a pleasure 
not to have to retype dozens of 
records just because you have chang- 
ed your mind about layout. File can 
only redesign four pages at a time, 
so a five page form will require two 
passes. And redesigning a form is 
slow, oh so slow. 

One caveat -any new fields that 
are to retain their data must have 
labels identical to the old fields. File 
does something strange when you set 
up your labels (or field names); each 
one must end with a colon. When 
reorganizing a database. File mat- 
ches every character between one 
colon and the next. If you have us- 
ed a row of dashes to break your 
form into upper and lower halves. 
File will think those dashes are part 



of the label which follows them. This 
"feature" means you may want to be 
very careful (read: avoid) using a 
heading or any other text that is not 
actually a field name. 

Records can be deleted individ- 
ually during a search or in groups. 
Give File a set of search spec- 
ifications and tell it to delete; your 
data will disappear and free disk 
space will reappear. File numbers 
your records consecutively as you 
enter them. When some records are 
deleted, the others are not 
renumbered. Only if you redesign 
the form will the numbering be 
consecutive again. But after a 
redesign the records are numbered 
in reverse order, so you wil have to 
redesign the database twice to have 
the latest records numbered highest. 

File has no number crunching 
capability and only limited printing 
options. Get your wallet, here comes 
PFS: Report. Report takes your File 
database and lets you design and save 
up to eight report formats. A report 




On Screen Status Display 
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Insert mode flag 
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Number ol the currant font 

Mama o( the current font 



OvBtview of FONTMASTER 
word processor features: 

1) Powerful block manipulation 
commands (Cut, Paste, Move. Overlay), 

2J User - friendly ellects Include (fonts, 
super/sub scripts, underlining, bold face, 
etc.) 

3) Up to eight different fonts can be used 
simultaneously. 

4) Many printing options such as page number- 
ing, titles, word-wrap, right justification, and 
more. 

5) Eight disk I/O commands (Save. Load, Verily. 
Erase, Etc.). 



Create Your Own or choose from over 15 type styles provided in this 
unique program. 

including: Bouhous English 
•look Italic 
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(913)827-0685 
3010 Arnold Road Salina, KS 67401 
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organizes your fields into columns 
and prints them in spreadsheet for- 
mat. You can choose up to 20 fields 
to be printed as columns. Based on 
the contents of the first and second 
columns. Report can sort your data 
in ascending alphabetical order (A 
to Z) or in descending numerical or- 
der (1000 to 0). Report has a very 
powerful feature that lets you sort 
data based on key words in any one 
field. This could really automate a 
research project; like redesigning a 
form, though, it is slow. 

Whatever page title you specify 
will be printed on each page of the 
report. The heading for each column 
will be the label of the correspon- 
ding field unless you specify some 
other heading. Report can give you 
the total, count, or average of any 
numeric column. Additionally, it can 
calculate subtotals, subcounts, or 
subaverages each time the entry in 
column one changes. If you just want 
the bottom line. Report will print a 
summary with totals only. 

If that's not enough. Report can 
also calculate across rows. Say your 
inventory list has entries for price 
paid and selling price. Report can 
generate a column that shows profit 
(based on those two entries) for each 
inventory item. Up to three such 
"derived" columns can be contained 
in any report. Report, unlike File, 
will let you print columns in any or- 
der; they do not have to be in the 
same order as the fields in your 
database. 

The manuals for File (24 pages) 
and Report (63 pages) are in the nice 
6'/2 by 8" wirebound format that lays 
flat on your desk. The chapters 
match the programs' menus, and 
each chapter combines a tutorial 
with reference information. Each 
manual contains a quick guide that 
you can use to refresh your memory 
once you have learned the program. 
Screen representations rather than 
actual pictures are used, so the il- 
lustrations are not identical to what 
you'll see on the monitor. All the 
programs' error messages are ex- 
plained, but this is hardly necessary 
Continued on page 84 
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CCMMCDARIES 



PROGRAMMING CHALLENGES 




By Dale 

ach month, we'll present several challenges 
designed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commockires, c/o Ahoy! 

P.O. Box 723 

Bethel. CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the Name and Number of the problems 
you are solving. Also show sample runs if possible, 
where appropriate. Programs on diskette are welcome, 
but they mu,st be accompanied by listings. Also tell what 
makes your .solutions unique or interesting, if they are. 
You must enclose a stamped, self-addressed envelope 
if you want any of your materials returned. 

Your original programming problems, suggestions, 
and ideas are equally welcome! The best ones will be- 
come Commodares. 



Problem M17-1: Decimalizing Dates 

This problem was suggested by John Immarino (Hack- 
ensack, NJ). Write a short program to convert the string 
form of a date into a numerical decimal value. For ex- 
ample, if the user enters 1/1/85, the computer returns 
1985.0000. Since mid-year is around July I , if the user 
enters 7/1/83, the computer returns 1983.5000. John 
points out that these decimal values would be easier for 
performing calculations involving time periods than the 
string versions are. He also reminds you to adjust for 
leap years! 



Rupert 

a.ssignment statement whereas the MIDS function appears 
on the right. 

Your challenge is to write a subroutine to simulate 
the MIDS statement. The syntax is this: MID$(X$,S,N) 
- Y$. The result is that some or all of XS is replaced 
by some or all of Y$. Specifically, the first N charac- 
ters of Y$ are substituted for characters in X$ starting 
at position S of XS. The length of X$ must not change. 
The value of Y$ is unchanged. Some examples should 
help. 

Initially X$='*RUN" and YS-^GO". S and N are as- 
signed the following values before your subroutine is 
called. The value of X$ upon returning from your sub- 
routine is shown. 





N=0or N>1 


N=l 


S = l 


GON 


GUN 


S=2 


RGO 


RGN 


S=3 


RUG 


RUG 



N may range from to 255, and S may range from 1 
to the length of X$. If N is greater than or equal to the 
length of Y$ or if N is 0, then all of Y$ will be used 
(with the stipulation that the length of X$ will not change). 



Problem #/ 7-4: Number Speller 

The user enters a number between one and one thou- 
sand, and the computer spells that value. For example, 
if the user enters 12, the computer displays "twelve." 
If the user enters 235, the computer returns "two hun- 
dred thirty five." Anyone submitting thousand-item 
DATA statements will be sent to the back of the class. 



Problem MI 7-2: Printer Sentinel 

Here's a problem sent by R.W. Kober (Buffalo. TX). 
Write a subroutine to determine whether or not the print- 
er is turned on. If the printer is on, the subroutine re- 
turns immediately. If the printer is off, the subroutine 
displays a message such as "The Printer Is Not On." The 
subroutine waits until the printer is turned on, at which 
time it returns to the main program. This should be a 
tidy, unimposing subrouUne. 

Problem it 17-3: MID$ Statement 

Some versions of BASIC contain a MIDS statement. 
Commcxlore BASIC allows only the MIDS function. The 
difference is that the MID$ statement (pronounced "mid- 
string") appears on the left side of the "=" sign in an 



First this month, a correction to the centering func- 
tion described in the January 1985 edition of Commo- 
cktres. The correct definition for FNCE is DEF 
FNCE(X)=lNT(20-X/2). Type X=LEN(AS) : PRINT 
TAB(FNCE(X) ); AS to print AS centered on the cur- 
rent (40-character) line. Thanks to Milton Powell and 
Daniel Miller for pointing this out. 

As promised last month, we have solutions to Prob- 
lem ttl6-2: Quick Decimal from the originators of the 
problem. Programs from Jim Speers (Niles, MI) and 
John Prager (Bay City, MI) are listed below: 

1 REM PROBLEM #16-2 : QUICK DECIMAL 

2 REM SUBMITTED BY JIM SPEERS 

3 REM 

10 INPUTN$ : F0RI=1T04 : A=ASC(MID$ (N$ ,1,1)) 

AHOY! 75 



-48:T=T+16* (4-1 )*(A+7*(A>9)): NEXT :PRINTT $ 



1 REM PROBLEM #16-2 : QUICK DECIMAL 

2 REM SUBMITTED BY JOHN PRAGER 

3 REM 

10 INPUT H$:N=0:ULEN(H$):FOR J=l TO L:A 

$=MID$(H$,J,1) 

20 K=VAL(A$)-(A$>"9")*(ASC(A$)-55) :N=N+K 

*16*(L-J):NEXT:PRINT N 

Jim's solution has the advantage of being a one-liner, 
but four hex digits must always be entered. John's pro- 
gram allows hexadecimal values of any length to be en- 
tered, at the expense of an additional program line. 

By far the most popular Commodare in January was 
Problem 013-1: Skirred Strinti. The two most general 
categories of solutions are a) .screen and printer compat- 
ible and b) only .screen compatible. Programs which used 
cursor movements are of course not usable for direct 
printer output. The award for most unusual solution goes 
to Michael Hommer (Waukee, lA) for his program writ- 
ten in COMAL. Here's what it looks like: 

INPUT AT 2,4,35: "type in the string : " 

; instr$ 

star'string(instr$) 

// Procedure 

PROC star'string(instr$) 

DIM star$ OF 40, string$ OF 40 

strings :="* "+instr$-(-" *" 

star$:="" 

FOR i:=l TO LEN(string$) DO star$:+"*" 

PRINT star$ 

PRINT string! 

PRINT star$ 

ENDPROC star 'string 

The first line prompts the user for an input. The sec- 
ond line executes the "star string" procedure which is 
defined in the following lines. The FOR-DO statement 
does not extend past the end of its line. The program 
logic should be easily understandable with a little study 
even for those who are not familiar with the language. 
Interesting solution. Michael. 

Examples typical of most other submissions are listed 
below: 

1 REM PROBLEM #13-1 : STARRED STRING (SC 
REEN ONLY) 

10 INPUT A$: PRINT" [DOWN]* "A$" *":FOR X= 
1 TO LEN(A$)+4: PRINT" [UP] [UP]* [DOWN] [DOW 
N] [LEFT]*";: NEXT 



Both of these programs are one-liners if you use ab- 
breviations and omit spaces. Variations on these themes 
involved using MIDS and LEFTS, and some programs 
called a star-printing subroutine. To give credit where 
it's due. here is a pseudo-random ly arranged list of read- 
ers with workable solutions to this and some of the other 
problems: 



Jimmv Tolen (Hawlhome. CAl 
R.W.' Kobcr (Buffaln. TX) 
Mitioii Ptiwell (Ponsniouth. NHf 
llanicl Miller (New York. NY) 
Kcnnclli Karow (Chicago. IL) 
Eric Bibcrholcr (Dundas, ONT) 
Dave Paticrson (San Jnse. CA) 
Hcikc Hamachcr (Tulsa. OKl 
Dan Berger (Marshneiil. Wl) 
Fred Randall (Uvhridge. MA) 
Stephen Vanderhtxif (Albany. NY) 
Mark Harris (Blue Springs. .MO) 
Jim R(K)t (Whiimire Lake. Ml) 
Richard Bcnkc lPcrr>ville. MO) 
David Wrigh( (New Britain. CT) 
Arnie Friedman (Great Neck. NY) 
Garrctl Kearney (Clay. NY) 
Alan Christman (Romeo. Ml) 
Bill Imrisek (Bantrofi, ONT) 
Brian Wilcox (Coldwatcr. OH) 
Shawn K. Smith (Bronx. NY) 
Titn Sionis (Cranbur>'. NY) 
Mike Bouska (Williamsburg. KS) 



Greg Smisek (Lansdsic MN) 
Marcus Cuopcr. Jr. (Miliiani. HI) 
John Immariiio (Haekensack. NJ) 
Greg Shcppard (Taconia, WA) 
Michael Hix<per (Tyler. TX) 
Harold Hughes (Robstinvn. TX) 
Ronald Sipc (Cincinnati. OH) 
John Bucy (Belpre. OH) 
Douglas Gristina (Florence. AL) 
Barry Friedman (No. Miaini, FL) 
Sieve [.iggett (College Park. GA) 
Kun Huebncr (Anchorage, AK) 
John Prager (Bay City. MI) 
James E. Border (Carlisle. PA) 
TixJii Growncy (Livingston. MT) 
Thomson Fung (San Diego, CA) 
Jon Phillips (Sierra Visla. AZ) 
Charles Foreman (Dayton, T,X) 
Adolpho Rixiriguez (Newark. NJ) 
Rohen Rice (Oak Park. Ml) 
Doug Chapman (Belleville. KS) 
David Handwerkcr (Davison. Ml) 
Jeff Lamben (Honcsdale. PA) 



Your letters indicate you enjoy solving the Commo- 
dares. Occasionally readers ask for more challenging 
problems. Our goal is to present problems which can 
be solved with short to mcxierate-length programs for 
people with a wide range of interests and abilities. As 
always, if you have a problem that you have solved or 
would like solved, submit it so that we might dare the 
rest of the world to try it. Commodares will be as chal- 
lenging as you make them. 

Problem ft 13-2: Auto Run brought some hints, tips, 
and solutions from R.W. Kober (Buffalo, TX), James 
E. Borden (Carlisle, PA), Antoine Alary (Montreal, 
QUE), Todd Growney (Livingston, MT). Jim Zdunic 
(East Leroy. MI), Richard M. Bertke (Perryville. MO), 
and William H. Fossett of Hacker's Hardware (P.O. Box 
7933, San Diego, CA 92107). 

Jim Zdunic's program listed below is u.sed for auto- 
loading the next prograin from tape. After typing and 
saving his program, you activate it by typing RUN. 
NEW. and then SYS 7669. From then on, the next tape 
program will be automatically loaded and run whenever 
you type SYS 7669. 



1 REM PROBLEM #13-1 

INTER/SCREEN) 

10 INPUT A$:FOR X=l TO LEN(A$)-|-4:X$=X$-I-" 

*": NEXT: PRINT X$: PRINT"* "A$" *": PRINT X 
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1 REM PROBLEM #13-2: AUTO RUN (FOR TAPE) 

2 REM SUBMITTED BY JIM ZDUNIC 

3 REM 
STARRED STRING (PR 10 FOR A=7669 TO 7679: READ B:POKEA,B:NEX 

T:END 

20 DATA 169,1,141,198,0,169,131,141,119, 

2,64 



No 
av£ 
Wo 

sir; 



EV6 

sect 
.syni 
reci 
MS 
\he 

Otk 

Fan 
writ 

mte 
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AHENTION COMMODORE 64 OWNERS 
DID YOU BUY THE WRONG PRODUCT? 



WE'LL PAY YOU FOR YOUR MISTAKE! 



PRINTER INTERFACE BLUES 



No graphics, doesn't work with your software. Bad aspect ratios, no 
available buffer, well you wouldn't have these problems with the Micro- 
World M W-350. We'll give you $59. off the list price of $129. for that 
strange interface that's causing you trouble. 



LAST YEARS BACK UP SOFTWARE 



Everyone has Back-up software that ri'pri)duces ermrs, but will it back up non-siandard 
-sectors, reproduce density frequency' alterations alter the number of sectors, copy single 
.■iync bits, and reformat a single track? We don't think .so. Send your antique back and 
retieve $ih. credit toward the "New Revised Clone Machine " at ■S49.9.'). We've added an 
MSD dual drive Clone Machine also avaikbie for only $:J9.95. Upgrade your products to 
(he latest .slate i>f the art today. 

Othar software products available tram Micro- W include: Mr. Tester diagnostic software. 
Fantastic Filer data base and report generator. Screen Dumper 64, Font Factory/ Sign 
writer for custom type and Jot-A-Word educational .software, watch for our $49MrDl 
interface that will connect vour Commodore fi4 to musical instruments. 



CALL • 201 - 838 -9027 tLMSSSSff^UU^ 
or write us at twtt^tU r Tm 

m wriiB us ai DISTRIBUTING. INC 

*NOTE Micio W reserves ^he iiqh! focdnceJ Ihis oiler di any hme wilhouf noiice 



i;i42B Route 2.'4 
Butler. N J 0740.''3 





Dealer Dist. Inquires 
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Reader Sefvlee No. 227 



Call us the modern way— 

on AhoyVs Bulletin Board System! 

If your computer is equipped with a modem, you can call Ahoyi's Bulletin Board System any hour 
** of the day. any day of the week to exchange electronic mail with other Commodore usefs or download 
files like the following: 




• Editorial calendar lor 
upcoming issues 

• Excerpts from future edi- 
tions of Scuttlebutt 



Corrections to programs 
and articles 

Detailed descriptions 
of back issues 



• Program disk and 
subscription inlormation 

• Classified 
advertising 



Set your modem for 300 baud, full duplex, no parity. 1 stop bit, 7 word length, and dial away! 
System Configuration of Ahoy! Bulletin Board System: 



C-64 and 1GB0 Automodem 

Commodore Business Machines 
1200 Wilson Drive 
West Chester. PA 19380 
Phone: 215-431-9100 

CSS Monitor Stand 

Computer Support Services 
P.O. Box 927 
Sania Baibara. CA 93102 
Phone: 619-968-3040 



MSD SO-2 Dual Disk Drive 

MSD Systems, Inc. 

10031 Monroe Sireet-Ste. 206 

Dallas. TX 75229 

Phone: 214-357-4434 

Superstand I 

A World o1 Plasllc. Ltd. 
2535 Unitea Lane 
Elk Grove Village. IL 60007 
Phone: 312-860-2525 



Impact Printer 

Fidefity Electromcs. Ltd. 
8800 N W, 36th Street 
Miami, FL 33178 
Phone: 305-594-1000 

Unl-Kool C-100 

Uni-Kool 

909 Williamson Loop 
Grants Pass. OR 97526 
Phone: 503^(76-1660 



Vortex I BBS Software 

Event Horizon Corporation 
Box 1327. Nev» York, NY 10028 
Phone: 212-535-0697 tvoice) 
212-988-4539 (data) 

Eleclra Computer Pad 

Ctiarleswater Products, Inc- 
93 Border Street 
West Newton, MA 02165 
Phone: 617-964-8370 



Sskala SC-100 Color Monitor 

Sakata U.S.A. Corporation 
651 Bonnie Lane 
eih Grove Village, IL 60007 
Phono: 312-593.321 1 

Computer Stands #5933 « #0640 

Royal Seating Corporation 
P.O. Box 753 
Cameron. TX 76520 
Phono: 817-697-6421 



NEW NUMBER (AS OF APRIL 15): 
718-383-8909 



rf you use the Wedge with your disk system, you may 
autorun a BASIC program by typing "|UP ARROW] file- 
name" where fUP ARROW] is the key next to the Re- 
store key. James Borden and Antoine Alary pointed out 
that you may type the following to autorun a BASIC pro- 
gram without the Wedge: 

LOAD "[FILENAME]", 8 : [SHIFT-RUN/STOP] 

The program below from Hacker's Hardware is the 
most versatile and easiest to use for creating a BASIC 
autoloader file. The user specifies the loader's name (for 
example, LDR) and the name of the BASIC program 
to be loaded {for example, TEST). Then the program 
creates the tile LDR and puts it on the same disk as 
TEST. To autorun TEST, enter LOAD "LDR",8, 1 or 
using the Wedge, simply enter %LDR. 

5 REM ~ CREATE AUTO-RUN LOADER — 

10 REM COURTESY OF HACKER'S HARDWARE 

20 INPUT"LOADER NAME";LN$ 

30 INPUT"NAME OF PROGRAM TO LOAD";B$ 

40 IF LEN(B$)>16 THEN END 

50 IF LEN(B$)=16 THEN 70 

60 fi$=B$+CHR$( 160): GOTO 50 

70 OPEN 1,8,2,LN$+",P,W" 

80 READ X%:IF X%=256 THEN 100 

90 PRINT#1, CHR$(X%);:GOT0 80 

100 PRINT#1,B$;:IF B$=""THEN CLOSElrEND 

110 B$="":G0T0 80 

120 DATA 187,2,169.15,166,186 

130 DATA 160,0,32,186,255,32 

140 DATA 192,255,169,16,162,240 

150 DATA 160,2,32,189,255,169 

160 DATA 0,32,144,255,32,213 

170 DATA 255,134,45,132,46,169 

180 DATA 15,32,195,255,32,83 

190 DATA 228,32,89,166,32,51 

200 DATA 165,32,142,166,76,174 

210 DATA 167,256,139,227,187,2,256 

Mr. Fossett invites readers to contact him at the ad- 
dress above if you are interested in an explanation as 
to how the program works. Several readers did some 
serious work on this problem. 

There were basically two groups of .solutions to Prob- 
lem ffl3-3: Micro Ccilc, those that POKE 63 i and those 
that don't. (The 631 refers to the first location of the key- 
board buffer, for those of you who haven't memorized 
the memory map of the C-64.) First of all, some of you 
may have wondered, as did Michael Hooper (Tyler, TX), 
why would anyone want a program like this when the 
computer already performs calculations very simply in 
the immediate mode? The answer is that this was in- 
tended to be a parsing problem, a task frequently en- 
countered in writing compilers and computer languag- 
es. Although it took some serious work and some cle- 
ver programming to create some of the keyboard "buf- 
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fer-stuffer" solutions, those programs don't provide much 
insight into the parsing problem. Cenainly no one would 
type or load a program to accomplish a task they could 
do without a program. 

The shortest example of a solution using the keyboard 
buffer was from Michael Hommer (Waukee. lA). The 
essence of this type of program is to POKE keystroke 
ASCII values into the keyboard buffer which begins at 
location 63 1 . The number of keystrokes waiting in the 
buffer is POKEd into kxation 198. Once the BASIC pro- 
gram is run and returns to immediate mode, the com- 
puter reads the keystroke data from the buffer, just as 
it would if you had pressed tho.se keys. 

1 REM PROBLEM #13-3: MICRO CALC 

2 REM SUBMITTED BY MICHAEL HOMMER 

3 REM 

5 INPUTA$ : A$="?"+A$ : PRINT"=" : PRINTA$ :M=6 

3I:C=145:P0KEM,C:P0KEM+1,C:P0KEM+2,C:P0K 
EM+3,13:P0KE198,4 

The I45's correspond to JCURSOR UP] keystrokes 
and 13 is the ASCII value of the [RETURN] key. Other 
readers' solutions of this type included fancy color chang- 
es to hide intermediate output on the .screen. If you 
haven't tried programming like this, you're in for .some 
fun and interesting possibilities. Combine these keyboard 
buffer ideas with the autorun programs above, and your 
computer could get along without you for days at a time. 

Parsing is the process of breaking the input sequence 
into its components and identifying or arranging them 
so that the desired operations can be performed. Shawn 
K. Smith (Bronx. NY) and Greg Smisek (Lonsdale. MN) 
sent similar .solutions as listed below. Theirs were the 
most compact programs. Other readers took somewhat 
the .same approach, 

1 REM PROBLEM #13-3: MICRO CALC 

2 REM SUGGESTED BY GREG SMISEK 

3 REM AND ALSO BY SHAWN K. SMITH 

4 REM 

10 INPUT"EXPRESSI0N";C$:F0RX=1T0LEN(C$): 

X$=MID$(C$,X,1) 

20 IF X$="+" OR X$="-" THEN C=C+VAL(N$): 

N$="" 

30 N$=N$+X$:NEXT:PRINT"THE ANSWER IS ";C 
+VAL(N$):PRINT:RUN 

James Dunavant (Gainesville, FL) converted the key- 
strokes into their BASIC tokens and POKEd them di- 
rectly into his BASIC program following a PRINT state- 
ment. Perhaps the most expandable approach is this one 
from John Prager (Bay City, MI). 

1 REM PROBLEM #13-3:MICR0 CALC 

2 REM SUBMITTED BY JOHN R. PRAGER 

3 REM 
30 PN=1 



AO GET A$:IF A$="" THEN 40 

50 IF A$>="0" AND A$<="9" THEN N=N*10+VA 

L(A$):GR=li PRINT A$;:GOTO 40 

60 IF A$="-" AND OR THEN GOSUB 120:PN=-1 

:GOTO 40 

70 IF A$="-" 

80 IF A$="+" 



THEN PRINT A$;:PN=-PN 

AND CR THEN GOSUB 120:PN=1: 



GOTO 40 

90 IF A$="+" THEN PRINT A$;:GOTO 40 

100 IF A$<>CHR$(I3) THEN 40 

110 GOSUB 120:PRINT"THE ANSWER IS ";S;". 

": PRINT: RUN 

120 PRINT A$;:S=S+N*PN:PN=1:N=0:CR=0:RET 

URN 

John's solution properly handles an input such as "-2". 
If you want to test the flexibility of your approach to 
this problem, see how easily you could iraxlify your pro- 
gram to properly handle multiplication as well as addi- 
tion and subtraction. 

Problem HI 3-4: Data Usler was also a good parsing 



problem. The solution from Fred Randall (Uxbridge, 
MA) is listed below. His program is typical of several 
other readers* approaches to this one. 

10 REM PROBLEM #13-4: DATA LISTER 

20 REM SOLUTION BY FRED RANDALL 

25 REM 

30 N=20:DIM D$(N) 

40 FOR J=l TO 20:D$(J)=CHR$(64+J):NEXT 

50 INPUT"-I-VIEW WHICH DATA";V$ 

60 L=LEN(V$):X=VAL(V$):X$=STR$(X):Y=LEN( 

X$)+1:Y$=MID$(V$,Y,L):Z=VAL(Y$) 

70 IF ULEN(X$)-1 THEN PRINT D$(X):END 

80 IF Z=0 THEN Z=N 

90 IF X<0 THEN Z=ABS(X):X=0 

100 FOR I=X TO Z:PRINT D$(I):NEXT 

We have room for one final micro-challenge. When 
are spaces mandatory for proper syntax in a BASIC pro- 
gram? Never, you say? Think about it. See you next 
month with a new round. D 
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Continued from page 22 

string you want PRINTed, converts the ASCII charac- 
ters to screen display codes, goes to screen memory, 
finds the current cursor position, and stores each char- 
acter code in the correct address. It does it all automa- 
tically, far faster than you could do it by POKEing the 
screen codes into memory yourself. 

But, as you know, part of that string can include "col- 
or" characters. For instance, CHR$(5) is the code for 
the color white. If you PRINT CHR-^CS), every character 
PRlNTcd after that will appear white. 

Yet there is no screen display code for "white." just 
as there is no screen display code for any of the other 
command characters, like carriage returns, cursor move- 
ments, or inverse on-off. These command characters are 
like a mini-language, telling the PRINT command what 
you want done with subsequent strings. 

When you use a color command character, PRINT 
takes it as an instruction to PRINT all subsequent char- 
acters in that color. 

But where is color controlled? It can't be controlled 
in screen memory, since there are 256 possible charac- 
ters (include inverse characters) that can be coded. All 
eight bits of each address of screen memory are used 
just to determine which character will be displayed - 
there is no bit left over for color. 

Instead, color has its own map, which corresponds 
exactly with screen memory. In the 64. color memory 
starts at location 55296 and includes all 1000 bytes 
through location 56295. In the VIC with less than 8K, 
color memory starts at 38400 and extends through .^8905. 
(Expanded VICs find color memory at 37888 through 
38393.) 



When you PRINT a red Q in the upper left-hand cor- 
ner of the screen, with the command PRINT CHRS(3 1 ) 
"Q", BASIC goes to the first address in screen memory 
and stores the code for Q. Then it goes to the first ad- 
dress in color memory and stores the code for red. 

This is why the 64 can have a different foreground 
color for every position on the screen. Any position can 
be displayed in any of the 16 available colors, because 
each screen position has a character ctxie in screen mem- 
ory and a color code in color memory. 

To see how this works, try this simple program. Line 
10 fills the screen with random characters; line 20 fills 
color memory with random colors. Here is the 64 ver- 
sion; 

10 SM=1024:F0R I=SM TO SM+999:P0KE I, INT 

(256*RND(9)):NEXT I 

20 CM=55296:F0R I=CM TO CM-f999:P0KE I, IN 

T(16*RND(9)):NEXT 

30 GOTO 20 

And here is the unexpanded VIC version {for expanded 
VICs, change the value of SM to 4096 and CM to 37888): 

10 SM=7680:FOR I=SM TO SM-h505:POKE I, INT 

(256=*RND(9)):NEXT I 

20 CM=38400:F0R I=CM TO CM+505:POKE I, IN 

T(16*RND(9)):NEXT 

30 GOTO 20 

Notice that because we POKEd the characters into 
screen memory, we could use the lower right-hand cor- 
ner of the .screen. The PRINT command automatically 
.scrolls the screen display when a character is PRINTcd 
in that position, but POKE, slow as it is, has the virtue 
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of leaving the rest of the screen alone when it puts a 
character there. 

Now, you can easily see how we can accomplish high- 
lighting certain positions on the screen wiihoui disturbing 
what is PRINTed there. We simply change the colors 
of that row in color memory, and regardless of what 
characters are coded to appear on that row in screen 
memory, they will have the color we assigned them in 
color memory. 

That is how the example program Menu works. The 
options are PRINTed on rows 5. 6, 7, 8, and 9. all start- 
ing at the fourth character from the left. No option is 
longer than 16 characters. So the movement routine 
tracks five different addresses in color memory, which 
correspond to the .starting positions of the five options. 
These addresses are held in the array CO(ii). 

When the player calls for a change in the current choice 
displayed, the variable NP is set to the number of the 
new position, and the variable XP is set to the number 
of the old position. 

To highlight an option, the routine at line 900 POKEs 
the highlight color code into the sixteen color memory 
addresses starting at the address CO(NP). To put an op- 
tion back to normal, the routine at line 920 POKEs the 
regular color code into the sixteen color memory ad- 
dresses starting at CO(XP). 

Movement up and down responds to the f? and f5 
keys; the space bar is used to .select. 

The virtue of this program is that if you were chang- 
ing menus, the .same routines could be used to change 
colors in certain positions on the screen regardless of 
what characters were displayed there. 

You will also notice that RUN/STOP and RESTORE 
are disabled at the beginning of the program. However, 
the program checks'to see if RUN/STOP has been 
pres.sed-if it has. everything is .set back to normal and 
the program ends. This is an example of how to keep 
the idiots savant from trashing the display. In this pro- 
gram, of course, it doesn't matter— but in the next one 
it does. 

COLOR CODES 

The color codes that you must POKE into color mem- 
ory are identical to the color codes you POKE into the 
background color register to change the background color: 



= black 


8 = orange 


1 = white 


9 = brown 


2 = red 


10 = light red 


3 = cyan 


1 1 — dark grey 


4 = purple 


12 = medium grey 


5 = green 


13 = light green 


6 = blue 


14 = light blue 


7 = yellow 


15 = light grey 



tion are under control. The upper four bits contain gar- 
bage. So to read color memory accurately, you must 
perform the operation AND 15 with the number you find 
there to get rid of the high nybble (the highest four bits), 
like this: 

A=PEEK(CM-t-53)AND 15 

After that statement, the variable A would contain the 
code for the color displayed in the 54th byte of color 
memory. (Remember, the first byte is CM+0, so that 
CM -1-53 is the 54th butc.) 

FAST HIGHLIGHTING THRU FAKERY 

The program Menu is slow. POKEing sixteen posi- 
tions in color memory takes time, and the response feels 
sluggish. 

But there's an easy way to speed things up on the 64. 
We can use PRINT to change color memory without 
changing screen memsory-by fooling BASIC into think- 
ing screen memory is .somewhere el.se. 

You may remember from earlier jaunts through the 
video memory .system that there is one location that tells 
the VIC chip where screen memory is, and another lo- 
cation that tells BASIC where screen memory is. BASIC 
u.ses its number when it is PRINTing character codes 
into .screen memory; the VIC chip uses its number when 
it is scanning to see what patterns to display on the screen. 

That means that if we tell BASIC that screen mem- 
ory is in one place, and tell the VIC chip that it's in an- 
other. BASIC can PRINT all day and the VIC chip will 
never .see it- it will still be looking in its own place for 
screen memory. 

However, white BASIC is PRINTing invisible char- 
acters, all its cr;/fjr changes will be visible, because both 
BASIC and the VIC chip will be using the same color 
memor>'. 

The example program Fast Menu shows how this is 
done. The options are PRINTed in screen memory at 
1024, just as usual. But then the BASIC .screen mem- 
ory pointer at 648 is changed from 4 to 60. This tells 
BASIC to PRINT things at page 60. or address 15360 
(that is, 60*256). 

The program then PRINTs one string, XCS, to set 
a row back to normal, and another string, HCS, to high- 
light a row. It does a whole row (except the last char- 
acter) each time, so that the option could be of any length. 

The strings consist of the color command character 
plus 39 commas. They didn't have to be commas. They 
could have been anything, including blanks. What mat- 
ters is that color memory is changed— we don't care what 

Continued on page 114 



By the way, you can't just PEEK into color memory 
to read what color is stored there. That's because only 
the lower four bits of each color memory address loca- 
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FOR MORE INFORMATJON... 

...on any of the products or services advertised or pic- 
tured in Ahoy!, circle the corresponding reader service 
number on the card located between pages 82 and 83. 




FOR THE C-64 

By Larry Murdock 



ilc puzzles, the predecessors of the more re- 
cently popular cube games, were little plastic 
boards on which were laid several small in- 

terlockiiig tiles. Each tile or square had a 

number, a picture, or a letter of the alphabet printed on 
its face. When you received the game it was in order. 
You subsequently moved the pieces around to mix up 
the puzzle, then attempted to put it back in order. 

Tile Time is just such a puzzle. Type it in and SAVE it. 

When RUN, the puzzle will appear and a message at 
ihe bottom will lead -JOYSTICK OR KEYBOARD 
J/K". If you select "K" the "cursor" can be positioned 
from the keyboard: up with an "A", down with a "Z". 
left with a "J", and right with a "'." (sec lines 7(X)() to 
7080). Hit the spacebar and the tile or tiles will move, 
if you wish to use the joystick, plug it into port number 
two (see lines 2(XX) to 2130). If you want to move one 
tile, position the cursor on the tile you want moved and 
hit the fire butitin or spacebar. If you want to move more 
than one tile, position the cursor on the last tile you want 
moved and hit the fire button or spacebar. If you want 
to start all over, hit SHIFT and CLR/HOME simultane- 
ously. 

After you respond to the "JOYSTICK" question, the 
screen will read "MIX Y/N". If you respond with a "Y" 
the puzzle will mix itself with 50 quick random moves 
(you can halt the mixing process at any time, by hitting 
any key -see lines 4000 to 4200). If you respond with 
a "N" then you can "MIX" it up yourself. 

The ctxle is kind of interesting and you can have some 
fim changing it around. The machine code scrolling is 
POKEd hi via DATA statements (sec lines 9(X)() to 
49790). Yt)u can change the face of the puzzle to any- 
thing you want (.see lines 290 to 310). The colors of the 
rows can be changed by altering the number codes in 
line 1 10. For younger players you can change one whole 
row to "A" "s and another to "B" "s, etc. If you don't speak 
well English you can change all the letters to numbers, 
if you confu.se easily you can change every tile to the 
same thing so that no matter how mixed the tiles are. 
they will be in the right order. D 

SEE PROGRAM LISTING ON PAGE 111 



We'll Have the New Advanced Commodore Products 1st!! 

IVTCAAT PRODUCTS! 

t\ r.Vy LOW PRICES! 



MKl) HII'AIHS.' V\i' itreun uuthitri/nJ 




Cull Tor iii(<irm;i'ti(m 
on nvv. pinMlutiN . . . 

CATALOGS: Frcr 
im M rillcn request. 



IIHIIiH III! t 



SGIO PRINTER 
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PRINTERS 

Epson RX 80 

wilh Tymac Connection. . . $299 
DPS 1101 Daisywheel 

Direct Connect to €54 . . . Call 

RitemanC+ NEW Call 

lVIW-350 Interface NEW Call 

PRINT SHOP '32.00 • SPECIAL 

DISK DRIVES 

MSDSuperDrive Call Commodore 1541 .... Call 

Indus GT Call Phonemark Datasette $29 

Epyx Fast Load $27 



Power type Daisy wheel 18 CFS 
withCirdcoB J354 

Okidata 92 160 GPS 
with Tymac Connection .... 429 

Commodore IMPS 802 . Call 

Okidata 182 NEW Call 

SPECIAL 



COMPUSERVE. STARTKR r,n nir 

KIT & \l l)Tl:X - . . ftah for .} y . y 3 

MODEMS 

Westridge 6420 Call 

IVlighty Mo Call 

AutoModcm NEW $49 

VIP Terminal 35 

Commodore 1660 59 
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MONITORS 

TcknikaiVlJIO $1H9 Zenith ZVIVl Gr^Amb . $89/99 

Commodore 1 702 .... Call 

DATABASE MANGERS 

The Consultant $62 PFS:File $59 

Super Base 64 49 PFS:Report 49 

The Manager 35 

WORD PROCESSORS 

Paper Clip/& speller $59/79 Easy Script $35 

Fleet System2 NEW Call Easy Spell 17 

SPREADSHEETS 

Calc Result Easy/Adv . $25/49 MuiltiPlan $65 

JT 
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XIDEX SS/DD PRECISION 
DISKETTES $ J ^QO 



Lifelime Warranty 

STORE THEM IN 
DATACASE 50 . . 



$2Q00 

Tiimmi'iiiiiiiiir 
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ACCESSORIES 

Com Cool Drive Far .... . $49 Power Pak $27 

Com Cool Plus w/ surge . . 69 Surge Protector 4Pluj ... 27 

BLACK NAUGAHYDE COVERS 

ORDER ANY •» OR MORE COVERS AND HAVE THEM SHIPPED FREE!!! 



C-64 or 1541 Drive ... ea. $5 

MSD Drives 1/2 . 5/6 

Gemini lOX 9 



1702Monitor $10 

IS25/MPS801 7 

1526/MPS802 8 



MOST ORDERS SHirPED WITHIN 18 HOL'RSf Advcnistd pricts iic (qc binli ctietk p! oiMlfy otdti 
VISAMC Qidns idd 3 S«. NO CO D ORDERS Fnsiicil nr compmy checks deity Sfdfti 21 diyi All uln 
4re final - dclectivf mciciufldije eichinged (or sune produci only Add Z% lot shipping [tZ SO min.l 
PItur call lor shipping on monilors Ohio r»idrnls add S.b% sites In Prices tt aviilabilily suVcl to chmge 
)IOlIRS:MO^'FRI lOAJVIln lOPM • SATlOAMIoSPM • SUN Noon lo 5 PM 

800-638-2617 

INFORMATION & IN OHIO 216/758-0009 
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COMMODORE FONT EDITOR 



FOR THE C-64 



BV PHILLIP CASE 



Have you ever wondered how your compu- 
ter knows to display the letter "A" when it's 
told to -especially when all it really under- 
stands is I's and O's? The answer lies in 

something called the Video Character Generator or Char- 
acter Matrix. 

Simply put, this is a Read Only Memory (ROM) which 
is tilled with data that tells the computer what each char- 
acter in the alphabet is supposed to look like. 

Whenever the computer needs to display an "S," for 
example, it looks through the ROM until it finds the cor- 
rect data for displaying an "S" on the screen. And since 
this matrix of data is stored in ROM. it's ready as soon 
as you turn on your Commodore 64. 

Suppose you could change the data in the character 
matrix so the computer would display your own char- 
acter set instead of the original. You could easily make 
your screen characters appear in Old English, or even 
other languages such as Russian or Greek, complete with 
their special letters. You could define special charac- 
ters such as smiling faces, Pac-man, stars, etc. Imagine 
the impact of a game with a special character font to 
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Now You Can Add 

ARTIFICIAL 
INTELLIGENCE 

To Your Programs Using a Poweriul Combination 




eiiK» acni^id«> i j«ck i>^» 



Heres Your Chance to Profit by being on 
the Forefront, Write 5th Generation Software 



Lejim How To: 

• CttMt lnt«!I(9*w • Conjiruct 

Pra^a.m» RuJa Btt*e% 

• Buiid E)cpcn SvtMnis • Do Knowkd^e 

• Wnte Stand Ak>n< Lkbhs* Enginwnng 

Free Prosfams • Use lfile»«i£* Eng^nn 

Wrire InlcHigent Prosrami For; 

• Home Use * DjtA ArulyMB 

• Rpbotpcs • Buurvets 

• MecEcal Dtagno&a * Rp4l Tini« 

• EducalKm Pioc*s» Csntjol 
> bireihgvnr CAI * Fast Games 

• Scientdtc Analy&is • Graphici 

■ Onia AcquHirion • Fmanctal Dtdstonc 
EMtciulcd Math Function* 

w Fail ML FUiatina Poinl & Intege* M*lh 

• Daubk: FVcciiiOti 2E-3S i*ilh Auto. Sci Nol 

• n'e- Logx Lpgp Sm Co* Tan SQR tX . 

■ Mdirv ,\nd MullKJim«r»ionial Latttce Malh 

• AJtjvbraic: Ehprnston Evdludior 




p(rwir>h^ llun mtnl ojI'ki 
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Ea>v Graphic* & Sound Wordt 

• Hirei Pkiiiing • Turtle Giaphiea 

• Wtndtuwi " " ■ - ■ - 

• Split ScrMm 

• Pmtcr.PkrftPr Ctrl 

• Spfiie St Annrulnn 

Editor 
E*Ay Conlrot o( al] I/O... 

• HS233 FunclKHii, 

• Acceu aU CM Prripherab 

UtiStie* 

• friitractiwe JnttTpretcr 

• FoTlh Virtual Vetnoiy 

• Fult Cursor Scieen Editor 
■ FuU Siruig hiandling 

• Tiace & Dvcompder 

• ConditKkniil Macro 

Aiscmbkr 



Gnu Docuinentation 

* Easy to Read 350 p^. 

Manual wnh Tutorials 

* Sourte ScrKTt Pictvidied 

• MkU an MVP Forth-79 

Irbcfuilfial Siandarelt 

• PpTwnal User Support 



* Koala Pad Graphicft 
lni«gialDi 

* Hires Circk. Lint. Arc 

* Muue Editor 

* Sound Control 

* tntcTTupT RouEinn 



• Inieiacitve Compiler 

• RomAblr Code G*neralni 

• flOK User Mciuory 

• AP Corrmodore FJc Types 

• ConverbalionaJ Uier 
Defined Commandi 



SupcrForth 64 Sdsss Yew 
Jume dnd Mocwy 



A Totai 

Integrated PaclMge 

(or (he Commodarr M 









SPECIAL INTflODUCTORY OFFER 

only ^gg"" 3S 

203"* Value ^S^ 

Lifliiled Tama Qfi^r mmmn 

I "2*" SWp USA. »»?- CO D . U S A ■ '15- OwBrun) 



CBntWO J owtt TW 41 dfimfiMai 



■p«f»c n*Mfti^ 



S«« Vour Local Computer StD«e 
or CALL 

lot ^troiffi OL^TSff]!.' of C/ii-romifl 

(800) 633-6335 

iQt ^(3iji\iorn,\ mloitttevon 

(415) 651-3150 

PAKSK( Hi:SK\H(H 

H^^r n«' f iimnm. ( A «•> 
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match the game theme. All this can be done. 

The ROM which stores this character matrix cannot 
be altered, but there is a vector in the Commodore 64 
which tells the computer where the ROM is. This vector 
is in RAM. which means it can be changed. 

Therefore, if we change the vector so it looks into 
RAM to get the character matrix, we can have our own 
character information right there waiting for it. The pur- 
pose of the Commodore Font Editor is to provide an easy 
interface to create character fonts. The program itself 
is .straightforward with few tricks. Type the program in 
slowly and try to understand each module as it is entered. 
Before trying to design a character font, first develop 
it on paper. This allows you to verify the consistency 
between letters before you go into the editor. First, make 
up a character matrix such as the one pictured here. Then 
define your character within the 
box. Remember to leave one 
side column and either the top 
or bottom row empty so your 
characters wont touch each 
other on the screen. If, of 
course, you are defining a cur- 
sive font, you will want the 
characters to connect with some sort of .standard so they 
look consistent. 

Also, you should not leave blank columns if you are 
designing special symbols that require more than one 
character, like a pointing hand. 

USING THE FONT EDITOR 

The first thing the program does after you type "RUN" 
is to load the character area with the data that is stored 
in ROM. This takes about 30 seconds and is only done 
the first time you type "RUN." If you stop the program 
and type "RUN" a second time, the program will not 
get the ROM characters. This is designed to prevent the 
program from wiping out a font you've been designing. 
The program checks for this by looking at the top row 
of the "@" character (Screen code 0), .so don't alter the 
top row of this character. 

After initializing the system, the program presents the 
main menu. From this point, you can go anywhere in 
the editor. 

Note: the character codes displayed and inputs re- 
quested are not ASCII, but rather the Coitimodore Screen 
Codes, given on page 132 of the C-64 User's Guide and 
page 376 of the C-64 Programmers Refereiiee Guide. 

Also, the character buffer for the font editor is from 
12288 to 14335 (3000H to 37FFH). The program and 
variable areas from 2048 to 12287 (800H to"3000H). 
The program protects the character buffer from BASIC 
.so your characters will not get wiped out by accident. D 
SEE PROGRAM LISTING ON PAGE 108 
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Continued from pa^e 12 
trol of your computer to you in case 
of lockup. Four RENEW programs 
will restore the BASIC program in 
memory before throwing the switch. 
The unit's two female serial ports 
permit the use of two printers, and 
its two-foot cord acts as an exten- 
sion to your serial bus. 

$24.95 postpaid from Master 
Software. 6 Hiilery Court. Ran- 
dallstown. MD 21133 {phone: 
301-922-2962). 

BLUE CHIPS 

The Commodore Investor's 
Newsletter is offered free to Com- 
modore owners interested in play- 
ing the stock market. A copy can be 
obtained by sending a stamped and 
self-addressed business size 
envelope to Dr. Lynn Harner. 201 1 
Central. Dodge City. KS 67801 
(phone: 316-227-8952). 

APPLICATION 
TEMPLATES 

Fabtronics has produced applica- 
tion templates for Microsoft's 
Multiplan for the Commodore 64. 
Current templates, priced at $11 .95 



FREE 



10 DISKEHES 

OR 

20 C-20 CASSEHES 

A subscription to the 'Cassette of the 
Month' gets you a tape or disk full of 10 
quality Commodore 64 programs deliv- 
ered to you by first class mail every month. 
The documentation included will help you 
run great utilities like 'Word Processor,' 
and Budget Analyzer,' or enjoy great 
games like 'Frogjump' and 'Caterpillar 
Cave' FOR AS LITTLE AS 50 CENTS 
EACH! 

* Limited offer * Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe for a year on disk and 
receive 10 Free B'A single sided double 
density diskettes! PRIfP^ 

jjVl^l-^' TAPE DISK 

^^/S IJ 1YR|l2iSSUES) 60" 75" 

6MO(6ISSUES( 35" 45°° 

SingteCopiw 7" 9°° 




* We'velseninbusinesslix MichRMa»4% 
over three years! acquiring 

* Over 4000 satisfied color 
compuler owners 

* Commodofe 64 requtred 



OvefSMS ADD S 1 10 subscrplrai 
and $1 00 to single issues 

PERSCm. CHECKS WELCOME! 

T&D Subscription Soflware 
P.aBOX25frC 
HOLLAND, MI49423 ,,^ 
(616) 396-7577 
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for documentation and software 
(S6.95 for documentation alone), in- 
clude home budget, accounts 
payable, accounts receivable, inven- 
tory management, check ledger, and 
invoicing. 

Fabtronics, 51 Quarry Street. 
Brockport, NY 14420 (phone: 
716-637-6371). 

Cooperative Design is looking for 
individuals to write application ov- 
erlays (to be called Magnetic Tem- 
plates) for various C-64 spreadsheet 
and database programs. They will 
encourage users to modify, copy, 
and distribute these programs, with 
each new user voluntarily mailing in 
payment. Authors will receive 25 
percent of all safes. 
. Send a stamped and self-addressed 
envelope to Cooperative Design at 
129 Anthes, Box 138, Langley, WA 
98260 and you'll receive a catalog 
of available and coming templates. 
If you'd like submission guidelines, 
send a list of templates you could 
develop and templates you'd like to 
see. 

Also available: blank cardstock 
Personal RAM boards which fit 
around the keys of your 64 or VIC, 
providing space for notes for partic- 
ular programs. Package of 12: 
$9.95. 

1200 BAUD MODEM 

U.S. Robotics has signed an agree- 
ment with Commtxlorc International 
to manufacture a 1200/300 bit-per- 
sccond mtxJcm with automatic phone 
dialing and other advanced features. 
It will be marketed by Commodore 
as the Commodore Modem/1200 
(model 1670). 

The new modem will be compati- 
ble with the 128, 64, Plus/4, SX-64. 
and VIC 20 computers. As well, it 
will feature Hayes compatibility and 
a built-in speaker that will alitnv users 
to hear the call being dialed. 

U.S. Robotics, Inc., 8100 McCor- 
mick Blvd.. Skokie. IL 60076 
(phone: 312-982-5010). 
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A NECESSITY 
FOR YOUR DISK SYSTEM 



^ DISK , , 

SleutH 




A DELUXE DISK ORGANIZING SYSTEM 

for the Commodore 64 that creates a 
DATA-BASE of your disk program library. 

Creates an ALPHABETIZED DIRECTORY of 
all your disks and disk programs. EASY TO 
USE-Reads your disks. Shows WHERE TO 
FIND EACH PROGRAM. Gives COMPLETE 
PROGRAM INFORMATION, Including YOUR 
OWN PROGRAM COMMENTS. PRINT-OUT 
DIRECTORY, View, or Search. PERMANENT 
DIRECTORY - 1 541 or MSD. WINDOWS for 
all disk information. 

$34.95 Postpaid. Commodore 64 only, California 
residents add 6% sales tax. 
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3243 Arlington Avenue, No 
Riverside, CA 92506 
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TURNUS0N..llne 

CVC Online, number 1 in erotic telcoms. 

Memberships: ~ 

Now Only 

$12.95 




or write to CVC Ortllne 

801 Socond Ave, N.Y., N.V. 10017 



I U H h T h 

Please note the following omissions/er- 
rors in previously published Ahoy! pro- 
grams: 

MANSION DISPLAY SETUP (March 1985): 

The following line did not appear in print. Plea.se in- 
sert it: 

52723 DATA "[s U]X" 

Some of you may have been confused by the extra open 
bracket in lines 52404 to 52408. and the extra close brac- 
ket in lines 525!) to 52517. The.se extra brackets appear 
not by mistake, but as characters which are printed to 
the screen, ^^ 

OLD ROUTINE (March 1985): 

We neglected to mention that the first byte of the pro- 
gram is 8000 and the last byte is 808C. 

HOME BUDGET (March 1985); 

Line 380, mangled during printing, should read as fol- 
lows: 

380 PRINT" [ DOWN ][ DOWN ]MONTHLY TOTAL"TAB( 
14)Q+AA+BB 

We regret any inconvenience these errors may have caused. 
Corrections to Ahov! programs and articles are posted 
on our bulletin board (718-383-8909 as of April 15) as 
soon as they are spotted. 
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Conlinued from page 74 

since all the messages are in plain English anyway. 
Together PFS:File and PFS:Report make a good team. 
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PFS: Report 
adds number- 
crunching and 
printer options 
to File. 
READER 
SERVICE 
NO. 236 



They give you all the important database features and 
File throws in a powerful extra. Your format is perfect, 
you're entering data; but you would really like to attach 
a note to one record. Just call up another page (for that 
one record only) and type your note. As simple as that. 
Just as the description of this feature is tacked onto the 
end of this review. File can attach a note to any record— 
and use a minimum of disk space to boot. 

Software Publishing Corporation. 1901 Landings 
Drive, Mountain View, CA 94043 (phone: 415-962-8910). 

—Richard Herring 
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PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy.' Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 



On the following pages you'll find several 
programs that you can enter on your 
Commodore computer. But before doing 
1 so, read this entire page carefully. 

To insure clear reproductions, Ahoyl's program 
listings are generated on a daisy wheel printer, in- 
capable of printing the commands and graphic char- 
acters used in Commodore programs. These are 
therefore represented by various codes enclosed in 
brackets [ J. For example: the SHIFT CLR/HOME 
command is represented onscreen by a heart H . 
The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encoun- 
ter in our listings, except for one other special case. 
The other special case is the COMMODORE aiid 
SHIFT characters. On the front of most keys are two 
symbols. The symbol on the left is obtained by 
pressing that key while holding down the COMMO- 
DORE key; the symbol on the right, by pressing 
that key while holding down the SHIFT key. COM- 
MODORE and SHIFT characters are represented in 
our listings by a lower-case "s" or "c" followed by 
the symbol of the key you must hit. COMMODORE 



J, for example, is represented by [c J], and SHIFT J 
by [s JI. 

Additionally, any character that occurs more than 
two times in a row will be displayed by a coded list- 
ing. For example. [3 "[LEFT]"] would be 3 
CuRSoR left commands in a row, [5 "js EPj"| 
would be 5 SHIFTed English Riunds, and so on. 
Multiple blank spaces will be noted in similar fash- 
ion: 22 spaces, for example, as [22 " "|. 

Sometimes you'll find a program line that's too 
long for the computer to accept (C-64 lines are a 
maximum of 80 characters, or 2 screen lines, long; 
VIC 20 lines, a maximum of 88 characters, or 4 
screen lines). To enter these lines, refer to the BASIC 
Command Ahhreviarions Appendix in your User 
Manual. 

On the next page you'll find our Bug Repellem 
programs for the VIC 20 and C-64. The version ap- 
propriate for your machine will help you proofread 
our programs after you type them. (Plea.se note: the 
Biif' Repellent line codes that follow each program 
line, in the whited-out area, should not be typed in. 
See the instructions preceding each program.) d 
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I lUI PflDTA MTI '-^"^''^ °'^ white background are Bug Repellent line codes. Do not enter them! This and Ihe preceding page explain these 
llVlrUll inVi I • codes and provide other essential information on entering Ahoy! programs. Read these pages before entering programs. 
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BUG REPELLENT 

This progriim will let you debug any Ahoy! program. Follow in- 
^trlK■Itons for VIC 20 icassctlc or disk) or C-64. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

Fur tas.H'iw: lypo in and save the Btif( Repcllfiii program, then 
type RUN 630(K)|RETURNjSYS 828|RETURN|. Ifyou typed the 
program properly, it will generate a set oRwo-lctter line cixie.s thai 
will match tho.se listed to the right of the respective program lines. 

Once you've got a working Bufi Repellent, type in the program 
you wish to check. Save it and type the RUN and SYS commands 
listed above tmce again, then compare the line codes generated to 
those listed in the magazine, Ifyou spot a discrepancy, a typing 
error exists in that line. Important: you must u.se exactly the same 
spacing as the program in the magazine. Due to memory limitations 
on the VIC. the VIC Bug Repellem will register an error if your 
spacing varies from what's primed. 

You may type SYS 828 as many times as you wish, but ifyou 
use the cassette for anything, type RUN 63000 to restore the 
Rept'lknl. 

When your program has been disinfected you may delete all lines 
from 6.3000 on. (Be sure the program vou type doesn't include lines 
abovq 63000!) 

f-'iir disk: enter But; Rcpellcni. save it. and type RUN:NEW 
IRETURN). Type in the program you wish to check, then SYS 828. 

To pause the line ctxies listing, press SHlFr, 

To send the list to the printer type OPEN 4,4:CMD 4;SYS 
8:8|RETURN|. When the cursor comes back, tvpe 
PRmT#4:CL0SE 41RETURN|. 

•63V/J F0RX=828T0irj23: READY tPOKEX.Y: NEXT: END AC 
•63r/jl DATA169,0, 133,63, 133,64, 165,43, 133,251 JL 
•63002 DATA165,44,133,252,160,0,132,254,32,228DF 
•63003 DATA3, 234, 177,251,208,3,76,208,3,230 OE 
•63004 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 
•63r/j5 DATA30, 203, 160, 0,177, 251, 170, 230, 251, 20 

8 KO 

•b3f/)fi DATA2, 230, 252, 177, 251, 32, 205, 221, 169, 58 J J 
•63VJ7 DATA32, 210, 255, 169, 0,133, 253, 230, 254, 32 OK 
•63r/J8 DATA228, 3, 234, 165, 253, 160, 0,170, 177, 251 LG 
•63009 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 
•63010 DATA138, 133, 253, 177, 251, 208, 226, 165, 253 

,41 DD 

•63011 DATA240,74,74,74,74,24,105,65,32,210 EK 
•63012 DATA255, 165, 253. 41, 15, 24, 105, 65, 32, 210 FO 
•63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 PK 
• 63014 DATAl , 208 , 249 , 230 , 63 , 208 , 2 , 230 , 64 , 230 CB 
•63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 KH 
•63016 DATA160,3,32,30,203,166,63,165,64,32 DP 
•63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 

1 EL 

•63018 DATA208,2,230,252,96,0,76,73,7S',69 01 

•63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 FG 

•63020 DATA32, 0,0, 0,0,0 LE 

C-64 VERSION 
By Michael Kleinert and David Barron 

r>pc 111. S.-WH, and RUN (he liii,i; Rcpcllnil. 'Ijpc NEW. then 
type in or LOAD the Alinyl program you vvish to check. When that's 
done. S.^VE your program (don't RUN it!) and type SYS 49152 
I RETURN I . ' 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generaics u> the ctntes listed 
toihc right of the ics[x.'clive program lines. Ifyou spot a ditTercricc. 
.in error exists in that line. Jot down the number of lines where 
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thciit. 

•5V/J FORX=49 152T049488: READY :POKEX,Y: NEXT: END GJ 

•5001 DATA32, 161, 192, 165, 43, 133, 251, 165, 44, 133 DL 

•5r/j2 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 

•5f/j3 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

•5004 DATA230,252,76,43,192,76,73,78,69,32 KN 

•5Vj5 DATA35,32,0, 169,35, 160,192,32,30, 171 CA 

•5^/j6 DATA160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 

•5r/j7 DATA252, 177, 251, 32, 205, 189, 169, 58, 32, 210 JE 

•5f/j8 DATA255, 169, 0,133, 253, 230, 254, 32, 37, 193 CL 

•5009 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 

•5010 DATA177, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 

•5011 DATA74, 74, 24, 105, 65, 32, 210, 255, 165, 253 EP 

•5012 DATA41, 15,24, 105,65,32, 210, 255, 169, 13 GH 

■5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 

•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 NG 

•5015 DATA160, 192, 32, 30, 171, 166, 63, 165, 64, 76 BF 

•5016 DATA231,192,96,76,73,78,69,83,58,32 EP 

•5017 DATAO, 169, 247, 160,192,32,30,171,169,3 PJ 

•5018 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 FK 

•5019 DATA80, 208, 245, 230, 254. 32, 210, 255, 169, 4 FL 

•5020 DATA166, 254, 160, 255, 32. 186, 255, 169, 0,133 CL 

•5021 DATA63, 133, 64, 133,2,32,189,255,32,192 GC 

•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193, 96 NN 

•5023 DATA32, 210, 255, 173, 141. 2, 41, 1.208, 249 NH 

■5024 DATA96,32,205, 189,169, 13,32,210,255,32 IM 

• 5025 DATA204 , 255 , 169 , 4 , 76 , 195 . 255 . 147 . 83 . 67 KC 

• 5026 DATA82 , 69 , 69 , 78 , 32 , 79 , 82 , 32 , 80 , 82 DC 
■5027 DATA73, 78, 84. 69, 82, 32, 63, 32, 0,76 ML 
•5028 DATA44, 193, 234, 177, 25 1,201, 32, 240, 6, 138 GN 
■5029 DATA113, 251, 69. 254, 170, 138, 76, 88, 192,0 JK 
•5030 DATAO, 0,0, 230, 251, 208, 2, 230, 252. 96 NA 
•5031 DATA170, 177, 251, 201, 34, 208, 6, 165, 2, 73 DM 
•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 251, 201 JA 
•5033 DATA32, 208, 212, 198, 254, 76, 29, 193, 0,169 FM 
•5034 DATA13, 76, 210, 255,0,0,0 PA 
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By Gordon F. Wheat 

Fliiiikspcftl will allow you to enter machine language Ahoy! pro- 
grams without any mistakes. Once you have typed the program in. 
Nave it for future use. While entering an ML program with 
Fhinkspeal there is no need to enter spaces or hit the carriage leiurn. 
This is all done automalically . If vou make an error in a line a hell 
will ring and you \\ill be asked Iti enter it again. To LOAD in a 
program .Saved wiih FUnik.spvvtl use LOAD '"name ".I. I for tape. 
or LO.AD "name". S.I for disk. The fmielum keys may Iv used after 
the starting and ending addresses have been entered. 
fl -SAVEs what you have entered so far. 
r3-L0ADs in a program worked on previously. 
r5-To continue on a line you suippcil on after LOADing in the 
previously saved wtirk. 

17 -.Scans [hiough (he program to ItK^atC a particular line, or lo IukI 
out where vchi stopped ihc last time you entered the program. 17 
Icniporarily freezes the ouipui as vtell. 

•5 P0KE53280,12:P0KE5328I,11 ■ 

•6 PRINT"[CLBAR][c 8][RVS0N][ 15" "]FLANKSPEED[ 

15" "]"; 
•10 PRINT"[RVS0N][5" "jMISTAKEPROOF ML ENTRY P 

R0GRAM[6" "]" MC 

•15 PRINT"[RVS0N][9" "]C8EATED BY G. F. WHEAT[ 

9" "]" DM 

•20 PRINT"[RVS0N][3" "]COPR. 1984, ION INTERNA 



LL 



ED 



DGJ 

SDL 
DB 
OF 
KN 
CA 
CE 

OJE 
CL 
NB 

4MB 
EP 
GH 
AN 
NG 
BF 

. EF 
PJ 
FK 

3CL 

GC 
NN 
NH 
IV. 
KC 
DC 
Ml 

G^ 

JK 

m- 
Jii 

F> 



IF 

FP 
MN 
GE 
HN 
IL 
:F0RA=0T08 FG 
MD 
ME 
LH 
IK 
PD 
LK 
lA 
FK 



TIONAL INC. [3" "]" DH 

•30 FORA=54272T054296:POKEA,0:NEXT IM 

•AO POKE54272,4:POKE54273,48:POKE54277,0:POKE5 

4278,249:POKE542%,15 NH 

•70 F0RA=680T0699:READB:P0KEA,B:NEXT KO 

•75 DATA169, 251, 166, 253, 164, 254, 32, 216, 255, 96 HJ 
•76 DATA169, 0,166, 251, 164,252,32,213,255,96 JB 
•80 B$="STARTING ADDRESS IN HEX":G0SUB2010:AD= 

B:SR=B HC 

•85 GOSUB2520:IFB=OTHEN80 FO 

•86 P0KE251,T(4)+T(3)*16:P0KE252,T(2)+T(1)*16 KE 
•90 B$="ENDING ADDRESS IM HEX":G0SUB2O10:EN=B 

• 95 G0SUB2510 : IFB=0THEN80 
•96 P0KE254,T(2)+T(1)*16:B=T(4)+1+T(3)*16 
•97 IFB>255THENB=B-255:POKE254,PEEK(254)+l 
•98 POKE253,B:PRINT 

• K/j REM GET HEX LINE 
•110 GOSUB3010: PRINT": [c PKLEFT] 
■120 F0RB=0T01:GOT0210 
■125 NEXTB 

•130 A%(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 
•135 PRINT" [c P][LEFT-]"; 
•140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " 
•150 FORA=OT07:T=T+A%(A):IFT>255THENT=T-255 
•160 NEXT 

■170 IFA%(8)<>TTHENG0SUB1010:GOTO110 
•180 FORA=0TO7:POKEAD+A,A%(A):NEXT:AD=AD+8:GOT 

01 10 MN 

•irjf) REM GET HEX INPUT AB 

•210 GETA$:IFA$=""THEN210 HO 

•211 IFA$=CHR$(20)THEN270 GC 

•212 IFA$=CHR$(133)THEN4000 ■ MD 

■213 IFA$=CHR$(134)THEN4100 KF 

•214 IFA$=CHR$(135)THENPRINT" ":G0T04500 GE 

•215 IFA$=CHR$(136)THENPRINT" ":GOT04700 BJ 

•220 IFA$>"@"ANDA$<"G"THENT(B)=ASC(A$)-55:GOTO 

250 GM 

•230 IFA$>"/"ANDA$<":"THENT(B)=ASC(A$)-48:G0T0 

250 LE 

•240 GOSUB1100:GOT0210 LL 

•250 PRINTA$"[c P][LEFT]"; OA 

•260 GOT0125 CG 

•270 IFA>0THEN280 OP 

•272 A=-1:IFB=1THEN290 OB 

•274 G0T0140 CJ 

•280 IFB=0THENPRINTCHR$(20);CHR$(20);:A=A-1 HG 
•285 A=A-1 BE 

•290 PRINTCHR$(20);:G0T0140 KH 

■3Vj rem LAST LINE AD 

■310 PRINT" ":T=AD-CINT(AD/256)*256) GJ 
•320 F0RB=0T0A-l:T=T+A%(B):IFT>255THENT=T-255 PL 
•330 NEXT I A 

•340 IFA%(A)<>TTHENGOSUB1010:GOT0110 KF 
•350 FORB=r/rOA-l:POKEAD+B,A%(B):NEXT HN 
•360 PRINT :PRINT"Ydu ARE FINISHED !":G0T04000 ON 
•1000 REM BELL AND ERROR MESSAGES FL 

•1010 PRINT :PRINT"LINE ENTERED INCORRECTLY": PR 

INT:GOTOUOO DH 

■1020 PRINT :PRINT"INPUT A 4 DIGIT HEX VALUE!": 

GOTO 1100 J A 

•1030 PRINT :PRINT"ENDING IS LESS THAN STARTING 

!":B=0:GOT01100 HD 

•1040 PRINT: PRINT"ADDRESS NOT WITHIN SPECIFIED 

RANGE! ":B=0:G0T01 100 AG 

•1050 PRINT :PRINT"N0T ZERO PAGE OR R0M!":B=0:G 

OTOilOO KN 



3020 
3030 
3040 



1060 PRINT"? ERROR IN SAVE" :G0T01 100 EI 
1070 PRINT"?ERR0R IN LOAD" :G0T01 100 GL 
1080 PRINT: PRINT :PRINT"END OF ML AREA": PRINT PG 
1100 P0KE54276, 17: POKE54276, 16: RETURN BH 
1200 OPEN15,8,15:INPUT#15,A,A$:CLOSE15:PRINTA 
$: RETURN IM 

2f/jO REM GET FOUR DIGIT HEX PC 

2010 PRINT:PRINTB$;:INPUrr$ GM 

2020 IFLEN(T$)<>4THENGOSUB1020:GOT02010 II 
2040 F0RA=1T04 : A$=MID$ (T$ , A , 1 ) : G0SUB2060 : IFT( 
A)=16THENGOSUB102O:GOTO201O AD 

2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 
T(4): RETURN GF 

2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 
URN EH 

2070 IFA$>"/"ANDA$<":"THENT(A)=ASC(A$)-48:RET 
URN KP 

2080 T(A)=16:RETURN NP 

2500 REM ADRESS CHECK LI 

2510 IFAD>ENTHEN1030 Ml 

2515 IFB<SRORB>ENTHEN1040 MG 

2520 IFB<2560R( B>40960ANDB<49152)0RB>53247THE 
N1050 MI 

2530 RETURN IM 

3f/)(J REM ADDRESS TO HEX EB 

3010 AC=AD:A=4096:G0SUB3070 HG 

A=256:GOSUB3070 CE 

A=16:GOSUB3070 PN 

A=1:G0SUB3070 MJ 

3060 RETURN IM 

3070 T=INT(AC/A):IFT>9THENA$=CHR$(T+55):GOT03 
090 CJ 

3080 A$=CHR$(T+48) JP 

3090 PRINTA$;:AC=AC-A*T: RETURN AC 

4i'/jO A$="**SAVE**":G0SUB4200 AI 

4050 0PEN1,T,1,A$:SYS680:CL0SEI LH 

4f>60 IFST=OTHENEND EO 

4070 GOSUB1060:IFT=8THENGOSUB1200 FJ 

4080 GOT04000 FF. 

4100 A$="**LOAD**":GOSUB4200 AB 

4150 0PEN1,T,0,A$:SYS690:CL0SE1 MF 

4160 IFST=64THEN110 JH 

4170 G0SUB1070:IFT=8THENG0SUB1200 CM 

4180 GOT04100 FO 

4200 PRINT" ":PRINTrAB(14)A$ FG 

4210 PRINT :A$="":INPUT"FILENAME";A$ OM 
4215 IFA$=""THEN4210 GF 

4220 PRINT: PRINT"TAPE OR DISK?":PRINT DF 
4230 GETB$ : T=l : IFB$="D"THENT=8 : A$="@0: "+A$ : RE 
TURN IG 

4240 IFB$<>"T"THEN4230 FN 

4250 RETURN IM 

4500 B$="CONTINUE FROM ADDRESS" :GOSUB2010:AD= 
B DK 

4510 GOSUB2515:IFB=0THEN4500 MA 

4520 PRINT :G0T01 10 01 

4700 B$="BEGIN SCAN AT ADDRESS" :GOSUB2010:AD= 
B FH 

4705 GOSUB2515:IFB=0THEN47O0 NK 

4706 PRINT :G0T04740 DI 
47 10 F0RB=rjT07 : AC=PEEK ( AD+B) : GOSUB303O : I F AD+B 
=ENTHEN AD=SR : GOSUBIOBO: GOTOl 10 BK 
4715 PRINT" ";:NEXTB EC 
4720 PRINT: AD=AD+8 GN 
4730 GETB$:IFB$=CHR$(136)THEN110 MN 
4740 GOSUB3010: PRINT": ";:GOT04710 JD 
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MENU FOR VIC 20 



1 REM MENU FOR VIC~POKEING COLOR MEMORY JG 

7 REM JD 

8 REM DISABLE RUN/STOP & SHIFT/COMMODORE EG 

9 REM JD 

10 POKE 8rj8,100:POKE 657,128 JP 
20 DIM C0(4) KH 

27 REM JD 

28 REM SET C0() TO ADDRESSES OF OPTION F 
lELDS IN COLOR MEMORY MD 

29 REM JD 

30 CM=38400:C0(0)=38513:FOR 1=1 TO 4:C0( 
I)=C0(I-1)+22:NEXT PF 

37 REM JD 

38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR VALUES IL 

40 NP=2:XP=2:NC=l:XC=0:POKE 36879,232 PC 

41 PRINT "[BLACK]"; KF 

47 REM JD 

48 REM PRINT THE MENU AO 

49 REM JD 

50 CR$=CHR$(13):PRINT "[CLEAR] CHOOSE YO 
UR SANDWICH" EN 

51 PRINT "[4" "]F5=UP F7=DOWN"CR$"[5" " 
]SPACE=CHOICE" BE 

52 PRINT "[21"*"]"CR$"*[19" "]*" FF 

53 PRINT "* ROAST BEEF[7" "]*"CR$"* CO 
RNED BEEF[6" "]*" LB 

54 PRINT "* SHAVED HAM[7" "]*"CR$"* PA 
STRAMI[9" "]*" HN 

55 PRINT "* TURKEY & SALAMI *"CR$"*[19 

" "]*" KG 

56 PRINT "[21"*"]"CR$CR$CR$CR$CR$CR$ GB 

57 PRINT "[4""]PRESS [RVSON]Q[RVSOFF] T 

QUIT"; BJ 

60 GOSUB 900 DD 

97 REM JD 

98 REM READ KEYBOARD BA 

99 REM JD 

100 A=PEEK(197):IF A=64 THEN 100 CH 

106 REM JD 

107 REM JD 

108 REM STOP NOW? BI 

109 REM JD 

110 IF A=48 THEN 800 DJ 

117 REM JD 

118 REM CHOICE MADE? JB 

119 REM JD 

120 IF A=32 THEN GOSUB 200: GOTO 100 NH 
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127 REM 

128 REM MOVE UP? 

129 REM 

130 IF A=55 THEN NP=NP-1:IF NP<0 THEN NP 
=4 

137 REM 

138 REM MOVE DOWN? 

139 REM 

140 IF A=63 THEN NP=NP+1:IF NP>4 THEN NP 



JB 
KN 
JD 

BB 
JD 
EN 
JD 

AD 
GC 



=0 

148 REM IF MOVE, GO DO IT 

150 IF NPOXP THEN GOSUB 920:G0SUB 900: X 

P=NP AO 

160 POKE 197, 64: GOTO 100 CN 

200 IF PEEK(197)<>64 THEN 200 DL 

207 REM JD 

208 REM CLEAR OLD CHOICE JJ 

209 REM JD 

210 PRINT "[HOME] [13" [DOWN]"] YOU CHOSE:" 
CR$"[21" "][UP]" FE 

217 REM JD 

218 REM JUMP TABLE CL 

219 REM JD 

220 ON NP+1 GOTO 300,400,500,600,700 KM 
300 PRINT "ROAST BEEF ON WHEAT" : RETURN EM 
400 PRINT "CORNED BEEF ON RYE": RETURN OJ 
500 PRINT "SHAVED HAM ON BUN": RETURN BK 
600 PRINT "PASTRAMI ON TOAST" : RETURN EP 
700 PRINT "TURKEY/SALAMI ON ROLL" : RETURN HI 

797 REM JD 

798 REM QUIT ROUTINE PD 

799 REM JD 

800 IF PEEK(197)<>64 THEN 800 EB 
810 PRINT "[CLEAR]": POKE 808,1 12 :POKE 65 
7,0:P0KE 198,0:END GL 

897 REM JD 

898 REM POKE COLORS INTO COLOR MEMORY PD 

899 REM JD 

900 FOR I=CO(NP) TO C0(NP)+15:P0KE I,NC: 
NEXT: RETURN LK 

•920 FOR I=CO(XP) TO C0(XP)+15:P0KE I,XC: 
NEXT: RETURN II 

MENU FOR C-64 

•1 REM MENU FOR 64— POKEING COLOR MEMORY PO 
•7 REM JD 

•8 REM DISABLE RUN/STOP AND RESTORE JC 
•9 REM JD 

•10 POKE 792, 193: POKE 808, 239: POKE 657,12 

8 MF 

•20 DIM C0(4) JL 

•27 REM JD 

•28 REM SET C0() TO ADDRESSES OF OPTION F 

lELDS IN COLOR MEMORY DP 

•29 REM JD 



•30 CM=55296:CO(0)=55499:F0R 1=1 TO 4:C0( 

I)=C0(I-1)+40:NEXT FJ 

•37 REM jD 

•38 REM SET OLD AND NEW COLOR LOCATIONS A 

ND COLOR VALUES FE 

•40 NP=2:XP=2:NC=1:XC=14 NL 

•47 REM JD 

.•48 REM PRINT THE MENU BE 

!'49 REM JD 

•50 CR$=CHR$( 13): PRINT "[CLEAR] [10" "]CHO 

OSE YOUR SANDWICH" HD 

•51 PRINT "[5" "]F5=UP[3" "]F7=DOWN[3" "] 

SPACE=CHOICE" AF 

•52 PRINT CR$"[23"*"]"CR$"*[21" "]*" KM 
•53 PRINT "* ROAST BEEF[9" "]*"CR$"* CO 

RNED BEEF[8" "]*" OF 

•54 PRINT "* SHAVED HAM[9" "]*"CR$"* PA 

STRAMI[11" "]*" ON 

•55 PRINT "* TURKEY & SALAMI[4" "]*"CR$" 

*[21" "]*" MO 

•56 PRINT "[23"*"]"CR$CR$CR$CR$CR$CR$ EA 
•57 PRINT "[9" "JPRESS [RVSONlRUN/STOPfRV 

SOFF] TO QUIT"; LI 

•60 GOSUB 900 DB 

•97 REM JD 

•98 REM READ KEYBOARD AX 

•99 REM JD 

•100 A=PEEK(197):IF A=64 THEN 100 PP 
•106 REM JD 

•107 REM JD 

•108 REM STOP NOW? BK 

•109 REM JD 

•110 IF A=63 THEN 800 DM 

•117 REM JD 

•118 REM CHOICE MADE? LJ 

•119 REM JD 

•120 IF A=60 THEN GOSUB 200: GOTO 100 OH 
•127 REM JD 

•128 REM MOVE UP? KJ 

•129 REM JD 

•130 IF A=6 THEN NP=NP-1:IF NP<0 THEN NP= 

^ CJ 

•137 REM JD 

•138 REM MOVE WW! DN 

•139 REM JD 

|»140 IF A=3 THEN NP=NP+1:IF NP>4 THEN NP= 

FF 

•148 REM IF MOVE, GO DO IT DJ 

•150 IF NPOXP THEN GOSUB 920: GOSUB 900 :X 

P=NP AL 

•160 POKE 197, 64: GOTO 100 DN 

•200 IF PEEK(197)<>64 THEN 200 FF 

•207 REM JD 

•208 REM CLEAR OLD CHOICE GF 

•209 REM JD 

•210 PRINT "[HOME] [13"[D0WN]"] YOU CHOSE:" 
CR$"[25" "][UP]" CG 

•217 REM JD 



•218 REM JUMP TABLE EB 

•219 REM JD 

•220 ON NP+1 GOTO 300,400,500,600,700 GC 
•300 PRINT "ROAST BEEF ON WHEAT" : RETURN PE 
•400 PRINT "CORNED BEEF ON RYE": RETURN EL 
•500 PRINT "SHAVED HAM ON A CROISSANT": RE 

TURN KG 

•600 PRINT "PASTRAMI ON TOAST": RETURN DI 
•700 PRINT "TURKEY & SALAMI ON ROLL":RETU 

RN LH 

•797 REM JD 

•798 REM QUIT ROUTINE PJ 

•799 REM JD 

•800 IF PEEK (197)064 THEN 800 EL 

•810 PRINT "[CLEAR]": POKE 792,71 :POKE 808 

,237: POKE 657,0: POKE 198,0: END OE 
•897 REM JD 

•898 REM POKE COLORS INTO COLOR MEMORY BM 
•899 REM JD 

•900 FOR I=CO(NP) TO C0(NP)+15:P0KE I,NC: 

NEXT: RETURN jd 

•920 FOR I=CO(XP) TO C0(XP)+15:P0KE I,XC: 

NEXT: RETURN LJ 

FAST MENU FOR C-64 

7 REM jD 

8 REM DISABLE RUN/STOP AND RESTORE JC 

9 REM JD 

10 POKE 792, 193: POKE 808, 239: POKE 657,12 

8 MF 

20 DIM V$(23) LF 

27 REM JD 

28 REM SET V$() TO ROW NUMBERS BG 

29 REM JD 

30 V$(0)="[HOME]":FOR 1=1 TO 23:V$(I)=V$ 
(1-1)+" [DOWN] ":NEXT MB 

37 REM JD 

38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR STRINGS IK 

40 NP=2:XP=l:XC$="[c 7] [39","]" MJ 

41 HC$="[WHITE]"+RIGHT$(XC$,39) JG 

47 REM JD 

48 REM PRINT THE MENU EE 

49 REM JD 

50 CR$=CHR$( 13): PRINT "[CLEAR] [10" "]CHO 
OSE YOUR SANDWICH" HD 

51 PRINT "[5" "]F5=UP[3" "]F7=D0WN[3" "] 
SPACE=CHOICE" AF 

52 PRINT CR$"[23"*"]"CR$"*[21" "]*" KM 

53 PRINT "* ROAST BEEF[9" "]*"CR$"* CO 
RNED BEEF[8" "]*" OF 

54 PRINT "* SHAVED HAM[9" "]*"CR$"* PA 
STRAMI[11" "]*" ON 

55 PRINT "* TURKEY & SALAMI[4" "]*"CR$" 
*[21" "]*" MO 

56 PRINT "[23"*"]"CR$CR$CR$CR$CR$CR$ EA 

57 PRINT "[9" "]PRESS [RVSON]RUN/STOP[RV 
SOFF] TO QUIT"; LI 
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60 GOSUB 900:XP=NP 

97 REM 

98 REM READ KEYBOARD 

99 REM 

100 A=PEEK(197):IF A=64 THEN 100 

107 REM 

108 REM QUIT? 

109 REM 

110 IF A=63 THEN 800 

117 REM 

118 REM CHOICE MADE? 

119 REM 

120 IF A=60 THEN GOSUB 200: GOTO 100 

127 REM 

128 REM MOVE UP? 

129 REM 

130 IF A=6 THEN NP=NP-1:IF NP<0 THEN NP= 
4 

137 REM 

138 REM MOVE DOWN? 

139 REM 

140 IF A=3 THEN NP=NP+1:IF NP>4 THEN NP= 



GO 
JD 

AI 
JD 
PP 
JD 
AL 
JD 
DM 
JD 
LJ 
JD 
OH 
JD 
KJ 
JD 

CJ 
JD 
DN 
JD 

FF 
JD 
DJ 
JD 
GG 
DN 
FF 
JD 
GF 
JD 





147 REM 

148 REM IF MOVE, GO DO IT 

149 REM 

150 IF NPOXP THEN GOSUB 90rj:XP=NP 
160 POKE 197, 64: GOTO 100 
2r/j IF PEEK(197)<>64 THEN 200 

207 REM 

208 REM CLEAR OLD CHOICE 

209 REM 

210 PRINT "[H0ME][13"[D0WN]"]Y0U CHOSE:" 
CR$"[25" "][UP]" CG 

217 REM JD 

218 REM JUMP TABLE EB 

219 REM JD 

220 ON NP+1 GOTO 300,400,500,600,700 GC 
300 PRINT "ROAST BEEF ON WHEAT": RETURN PE 
400 PRINT "CORNED BEEF ON RYE": RETURN EL 
500 PRINT "SHAVED HAM ON A CROISSANT": RE 
TURN KG 
600 PRINT "PASTRAMI ON TOAST" : RETURN DI 
700 PRINT "TURKEY & SALAMI ON ROLL":RETU 
RN LH 

797 REM JD 

798 REM RESTORE AND END HJ 

799 REM JD 

800 IF PEEK (197)064 THEN 800 EL 
810 PRINT "[CLEAR]": POKE 792, 71: POKE 808 
,237: POKE 657,0: POKE 198,0: END OE 

897 REM JD 

898 REM PRINT COLORS USING FALSE SCREEN 
MEMORY CE 
900 POKE 648,60:PRINT V$(NP+5)HC$V$(XP+5 
)XC$:POKE 648,4: RETURN FK 



r«- T-U- 1 




WORM FOR VIC 20 

1 REM WORM FOR VIC— ANIMATE WITH COLOR M 
EMORY OE 

10 POKE 808,100:P0KE 657,128 JP 

20 DIM WM(14) OC 

30 CM=38400:WM(0)=38520:WM(1)=38521 :WM(2 
)=38544:LW=2 KB 

40 CW=2:CB=0:CF=5:P0KE 36879, 8: PRINT CHR 
$(144)CHR$(147); HF 

50 F$="[21"[s Q]"]" BF 

51 FOR 1=0 TO 23: PRINT F$: NEXT: PRINT F$" 
[HOME]"; BG 

52 FOR I=CM+21 TO CM+505 STEP 22: POKE I, 
0:NEXT LD 

53 FOR 1=7701 TO 8185 STEP 22: POKE 1,81: 
NEXT GC 
60 FOR 1=0 TO LW:P0KE WM(I) ,CW:NEXT LM 
70 FOR 1=0 TO 11 ML 
75 F=CM+INT(506*RND(9)):IF ( PEEK (F) AND 1 
5)<>CB THEN 75 CD 
80 POKE F,CF:NEXT FM 
100 A=PEEK(I97):B=PEEK(653):IF A=24 OR A 
=48 THEN 800 ID 
110 IF A063 AND A<>55 AND BOl AND B<>2 

THEN 100 EC 

120 XW=WM(LW):F0R I=LW TO 1 STEP -1:WM(I 
)=WM(I-1):NEXT FL 

130 IF A=55 THEN WM(0)=\iM(0)-22:IF WM(0) 
<CM THEN WI(0)=Wl(0)+506 EI 

135 IF A=63 THEN WM(0)=WM(0)+22:IF WM(0) 
>38905 THEN WM(0)=WM(0)-506 MG 

140 IF B=2 THEN l#l(0)=WM(0)-l:IF WM(0)<C 
M THEN WM(0)=lvfM(0)+506 OP 

145 IF B=l THEN WM(0)=WM(0)+1:IF WM(0)>3 
8905 THEN WM(0)=WM(0)-506 HJ 

147 REM JD 

148 REM IS IT FOOD? EN 

149 REM JD 

150 IF (PEEK(WM(0))AND 15)=CF THEN LW=LW 
+1:WM(LW)=XW:G0T0 170 OE 
160 POKE XW.CB AH 
170 POKE WM(0),CW:IF LW>13 THEN 30 FJ 
180 GOTO 100 BP 
800 IF PEEK( 197)064 THEN 800 EB 
810 PRINT "[c 7][CLEAR]":P0KE 808,1 12 :P0 
KE 657,0: POKE 198,0: SYS 65234: END BM 

WORM FOR C-64 

•1 REM WORM FOR 64~ANIMATE WITH COLOR ME 
MORY FO 

•7 REM JD 

°8 REM DISABLE RUN/STOP AND RESTORE JC 
•9 REM JD 

•10 POKE 792, 193: POKE 808, 239: POKE 657,12 
8 MF 

•20 DIM WM(14) OB 

•27 REM JD 
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on entering Ahoy! programs. Refer to these pages before entering any programs! 



•28 REM SET WM() TO WORM'S STARTING POSIT 

ION IN COLOR MEMORY PG 

•29 REM JD 

•30 CM=55296:WMC0)=55712:WM(I)=55713:WM(2 

) =55752 tLW=2 NF 

•37 REM JD 

•38 REM SET WORM, FOOD, AND BACKGROUND CO 

LOR VALUES JO 

•40 CW=7:CB=9:CF=5:POKE 53281 ,CB: PRINT CH 

R$(149)CHR$(147); KP 

•47 REM JD 

•48 REM FILL THE SCREEN WITH DOTS BB 
•49 REM JD 

•50 F$="[39"[s Q]"]" JC 

•51 FOR 1=0 TO 23:PRINT F$:NEXT:PRINT F$" 

[HOME]"; JM 

•52 FOR 1=1063 TO 2023 STEP 40: POKE 1,81: 

NEXT IK 

•57 REM JD 

■58 REM PUT WORM ON SCREEN GN 

•59 REM JD 

•60 FOR 1=0 TO LW:POKE WM(I),CW:NEXT HN 
•67 REM JD 

•68 REM PUT FOOD OUT RANDOMLY BP 

•69 REM JD 

•70 FOR 1=0 TO 11 MH 

•75 F=CM+INT(1000*RND(9)):IF (PEEK(F)AND 

15)<>CB THEN 75 NJ 

•80 POKE F,CF:NEXT GN 

•97 REM JD 

•98 REM READ KEYBOARD AI 

•99 REM JD 

•100 A=PEEK(197):B=PEEK(653):IF A=63 THEN 

800 BD 

•106 REM JD 

•107 REM JD 

•108 REM LEGAL MOVEMENT? LD 

•109 REM JD 

•110 IF A<>6 AND A03 AND BOl AND B<>2 T 

HEN 100 NF 

•117 REM JD 

•118 REM SHIFT ADDRESSES MA 

•119 REM JD 

•120 XW=WM(LW):FOR I=LW TO 1 STEP -1:WM(I 

)=WM(I-1):NEXT KN 

•127 REM JD 

•128 REM MOVE UP? KJ 

•129 REM JD 

•130 IF A=6 THEN WM(0)=WM(0)-40:IF WM(0)< 
CM THEN WM(0)=WM(0)+1000 AH 

•132 REM JD 

•133 REM MOVE DOWN? DN 

•134 REM JD 

•135 IF A=3 THEN WM(0)=M(0)+40:IF WM(0)> 

56295 THEN WM(0)=WM(0)-1000 JF 

•137 REM JD 



138 


REM 


MOVE LEFT? 






BE 


139 


REM 








JD 


140 


IF 1 


J=2 THEN WM(0)=l#l(0)- 


-1:IF 


WM(0)<C 




M THEN WM(0)=l^lM(0)+1000 






JJ 


142 


REM 








JD 


143 


REM 


MOVE RIGHT? 






IC 


144 


REM 








JD 



145 IF B=l THEN WM(0)=WM(0)+1:IF WM(0)>5 
6295 THEN WM(0)=WM(0)-10rjO CG 

147 REM JD 

148 REM IS IT FOOD? DP 

149 REM JD 

150 IF ( PEEK (WM(0)) AND 15)=CF THEN LW=LW 



+1:WM(LW)=XW:G0T0 170 

158 REM ERASE WORM'S TAIL 

159 REM 

160 POKE XW,CB 

167 REM 

168 REM COLOR WORM'S HEAD 

169 REM 

170 POKE WM(0),CW:IF LW>13 THEN 30 
180 GOTO 100 

797 REM 

798 REM QUIT ROUTINE 

799 REM 

800 IF PEEK( 197)064 THEN 800 

810 POKE 53281, 6:PRINT "[c 7][CLEAR]":P0 
KE 792,71 :P0KE 808,237:P0KE 657,0:P0KE 1 
98,0: END 



JH 
PH 
JD 
AJ 
JD 
OA 
JD 
EC 
CF 
JD 
PJ 
JD 
EL 



NL 



ASSEMBLER ESCAPADES 



FROM PAGE 55 



LISTING 1 



1 IF QQ=1 THEN 140 

2 IF QQ=2 THEN END 

4 :REM 

5 :REM — SAVE SCREEN TO DISK — 

6 :REM =RUPERT-REP0RT=LISTING-1= 

7 :REM 

10 DEF FNH(X)=INT(X/256) :REM MSB OF X 

20 DEF FNL(X)=X-256*FNH(X) :REM LSB 

25 :REM 

30 GOSUB 500 :REM: PUT IMAGE ON SCREEN 

35 :REM 

40 FLNAM$="@:SCRN1" 

45 FA$=FLNAM$ 

50 SADDR=1024 : EADDR=2024 

60 GOSUB 220 :REM: SAVE SCREEN MEMORY 

65 :REM 

70 FLNAM$="@:C0LR1" 

75 FB$=FLNAM$ 

80 SADDR=55296 : EADDR=56296 

90 GOSUB 220 :REM: SAVE COLOR MEMORY 

100 :REM — RESTORE SCREEN — 



EG 
DJ 

ML 
KE 
JA 

ML 

HF 
DF 
ML 
PN 
ML 
lA 
ON 
CL 
FL 
ML 
EC 
PM 
JK 
NP 
DA 
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no PRINT CHR$(1A7):PRINT"PRESS ANY KEY 

TO RESTORE SCREEN" 

120 GET AA$ : IF AA$="" THEN 120 

130 QQ=1 : FLNAM$=FB$ : GOTO 600 

140 QQ=2 : FLNAM$=FA$ : GOTO 600 

160 REM USE KERNAL 'SAVE' ROUTINE 
170 REM TO SAVE MEMORY FROM (SADDR) 
180 REM TO (EADDR-1) IN FILE "FLNAM$" 

200 REM 

210 REM 

220 AREG=780 : XREG=781 : YREG=782 

230 OPEN 8,8,8,FLNAM$ 

240 SVE=65496 :REM $FFD8 

250 ZPTR=251 :REM $FB (ZERO PAGE) 

260 POKE ZPTR+1,FNH(SADDR) 

270 POKE ZPTR,FNL( SADDR) 

280 POKE AREG.ZPTR 

290 POKE XREG,FNL(EADDR) 

300 POKE YREG,FNH(EADDR) 

310 SYS SVE 

320 CLOSE 8 

330 RETURN 

494 :REM 

495 :REM << FILL SCREEN » 

500 FOR MEM==1024 TO 2022 STEP 3 

510 PRINT CHR$(168)CHR$(127)CHR$(168); 

520 POKE MEM+54272,RND(0)*16 

530 NEXT 

540 RETURN 

594 :REM -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 

595 :REM LOAD FLNAM$ BACK INTO MEMORY 

596 :REM EXECUTION RESUMES AT START 

597 :REM OF PROGRAM 

598 :REM -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
600 LOAD FLNAM$,8,1 

LISTING : 

10 REM 

20 REM =— ASSEMBLER SOURCE CODE=-= 
30 REM 



:SAVE 
: SADDR 



:EADDR 



: ENTRY 



210 
220 
230 
240 
243 
246 
250 
253 
256 
260 . 
265 . 
270 . 
275 . 
280 . 
290 . 
300 . 
310 . 
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— SAVE SCREEN TO DISK — 
ORG $C000 
JMP : ENTRY 

.EQ $FFD8 ;S.A. OF 'SAVE' 
; START SAVING 
.DB $04 $00 



.DB $07 $E8 



;END SAVING 



LDA : SADDR 

STA $FC 

LDA :SADDR+$01 

STA $FB 

LDA #$FB 



LDX 
LDY 

JSR 



:EADDR+$01 

:EADDR 

:SAVE 



;HI BYTE 

;L0 BYTE 

ZERO PAGE 
LO BYTE 
HI BYTE 



GM 
NF 
CJ 
CL 
CD 
LD 
DG 
BO 
CD 
JD 
JD 
HE 
GP 
ME 
JG 
MK 
NO 
DE 
KK 
KN 
IL 
NI 
IM 
ML 
ML 
CC 
PP 
GH 
lA 
IM 
FO 
KL 
JO 
IP 
FO 
NB 
I 

JD 
JH 
JD 
DM 
CH 
PH 
GO 
CI 
PG 
EO 
DA 
AB 
KL 
NO 
PM 
NP 
EE 
HD 
PJ 
OJ 



320 . 
330 .:END 
340 . 



RTS 



.EN 



10 REM 

20 REM =-= SYMBOL TABLE = 

30 REM 

40 $FFD8 :SAVE $C003 

50 $C005 :EADDR $C007 

60 $C01D :END $C004 

70 $C006 :EADDR+$01 



;T0 BASIC 



LISTING 3 



: SADDR 
: ENTRY 
:SADDR+$01 

LISTING 4 



10 REM 

20 REM =-=DISASSEMBLED OBJECT CODE=-= 

30 REM 

230 COOO 4C 07 CO JMP $C007 

246 C003 04 

247 C004 00 

253 C005 07 

254 C006 E8 



BRK 
*** 

INX 



260 C007 AD 03 CO LDA $C003 
265 COOA 85 FC STA $FC 
270 COOC AD 04 CO LDA $C004 
275 COOF 85 FB 
280 coil A9 FB 
290 C013 AE 06 CO LDX $C006 
300 C016 AC 05 CO LDY $C005 
310 C019 20 D8 FF JSR $FFD8 
320 COIC 60 



STA $FB 

LDA #$Fh 



RTS 



LISTING 5 



5 REM=-=-=-=-=-=-=-=-=_=~=- 

6 REM INSERT THESE STATEMENTS INTO 

7 REM LISTING 1 

60 GOSUB 190 

90 GOSUB 230 

190 MEM=49152 :RF>I ORG=$C00O (49152) 

200 READ BYTE$:IF BYTE$="DONE" THEN 230 

210 GOSUB 1000 :REM CONVERT TO DECIMAL 

220 POKE MEM, BYTE : MEM=MEM+1 :GOTO 200 

230 OPEN 8,8,8,FLNAM$ 

240 SS=49155 :REM STORE SADDR @ $C003 

250 EE=49157 :REM STORE EADDR @ $C005 

260 POKE SS,FNH( SADDR) 

270 POKE SS+1,FNL(SADDR) 

280 POKE EE,FNH( EADDR) 

290 POKE EE+1,FNL( EADDR) 

300 :REM ORG IS $C000 (49152) 

310 SYS 49152 

320 CLOSE 8 

330 RETURN 

400 DATA 4C,07,CO,04,00,07,E8 

410 DATA AD, 03, CO, 85, FC 

420 DATA AD,04,C0,85,FB,A9,FB 

430 DATA AE, 06, CO, AC, 05, CO 

440 DATA 20,D8,FF,60 

450 DATA DONE 

1000 REM - CONVERT 2 DIGIT HEX TO DEC - 



HL 
OL 
PE 

JD 
AH 
JD 

LM 
MA 

NA 
PD 

JD 
CL 
JD 
AD 
DA 
CI 
EJ 
EL 
BA 
IN 
DE 
10 
GA 
CN 
GH 
KM 
FC 

EO 

AJ 

OA 

EO 

CO 

CJ 

HK 

HF 

PD 

OF 

GP 

DO 

DI 

AN 

AP 

PL 

NB 

JF 

KF 

NI 

IM 

MA 

IN 

BE 

PC 

NG 

LH 

MA 
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•1010 BYTE=0 BA 

•1020 FOR NN=1 TO 2 MB 

•1030 DD=ASC(MIl)$(BYTE$,NN,l))-48 BK 

•1040 DD=DD+7*(DD>16) EL 

•1050 BYTE=16*BYTE+DD EE 

•1060 NEXT lA 

•1070 RETURN IM 

By the Numbers 

FROM PAGE 47 

1 REM ********************************* 
5 REM ******** LISTING NO. 1 ********** 
10 REM ***** BY THE NUMBERS *********** 
20 REM * A NUMBER CONVERSION PROGRAM ** 
22 REM ******************************** 

25 DIM HEX$(8),BIT$(8),BIT(8),H$(16),B$( 

16),TEMP$(2) 

27 REM SET UP HEX-BINARY CONVERSION TABL 

ES: 

DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 
DATA 0000 , 0001 , 0010 , 0011 , 0100 , 0101 , 01 



35 
36 
10 

37 DATA 0111,1000,1001,1010,1011,1100,11 
01,1110,1111 

38 FOR L=l TO 16:READ H$(L):NEXT L 

39 FOR L=l TO 16:READ B$(L):NEXT L 

40 REM CLEAR SCREEN AND PRINT MENU: 

45 PRINT CHR$( 147): PRINT: PRINT "THIS PRO 

GRAM WILL CONVERT:" 

50 PRINT: PRINT "[3" 

ADECIMAL" 

60 PRINT "[3" "](B) 

AL" 

70 PRINT: PRINT "[3" 

MAL" 

80 PRINT "[3" "](D) 

90 PRINT: PRINT 

BINARY" 
100 PRINT "[3" 
AL": PRINT 



"](A) DECIMAL TO HEX 



HEXADECIMAL TO DECIM 



DN 
GD 
IN 
JG 
DD 

EF 

AK 
BK 

CD 

AG 
KJ 

JP 
HB 

PE 

JL 

00 



"[3" 



"](C) BINARY TO DECI 

JF 
DECIMAL TO BINARY" GA 
"](E) HEXADECIMAL TO 

GP 
"](F) BINARY TO HEXADECIM 

BI 

HO A$="": INPUT "WHAT CONVERSION DO YOU 
WANT (A-F)";A$ 

115 IF A$="" THEN 110 

116 IF LEN(A$)<>1 THEN 110 

117 IF A$<"A" OR A$>"F" THEN 110 
120 A=ASC(A$)-64:REM TRANSLATE A$ INTO 
N INTEGER FROM 1 (A) TO 6 (F) 



PO 
CH 
AG 
OJ 



KO 



OR 



130 IF A<1 OR A>6 THEN 30:REM IF A$<A 
A$>F THEN MENU LI 

135 ON A GOTO 140,310,470,670,850,1010 OM 

136 REM ****** DECIMAL TO HEX ******* GG 
140 PRINT CHR$( 147): PRINT "[7" "]DECIMAL 
-TO-HEX CONVERSION" 01 
150 PRINT: PRINT "[9" "]RANGE: TO [8"9" 
]":PRINT FA 



160 A$="": PRINT: PRINT "TYPE DECIMAL NUMB 
ER (OR 'M' FOR MENU)":INPUT A$ JB 
165 IF A$="" THEN 160 DI 

170 FOR L=l TO 8:HEX$(L)="":NEXT L EN 
180 IF A$="M" THEN 40 DO 

190 FOR L=l TO 8:T$=RIGHT$(A$,L) DJ 
195 IF ASCCT$)<48 OR ASC(T$)>57 THEN 160 NN 
200 NEXT L MO 

205 IF LEN(A$)<1 OR LEN(A$)>8 THEN 160 EH 
210 N=VAL(A$) JO 

220 1=8 DC 

230 TMP=N:N=INT(N/16) KO 

240 TMP=TMP-N*16 LH 

250 IF TMP<IO THEN HEX$(I)=RIGHT$(STR$(T 
MP),1):G0T0 270 LC 

260 HEX$(I)=CHR$(TMP-10+ASC("A")) JF 
270 IF NOO THEN 1=1-1: GOTO 230 HJ 
280 PRINT "HEX: "; GG 

290 FOR L=l TO 8:PRINT HEX$(L) ; :NEXT L:P 
HINT BP 

300 GOTO 160 CH 

305 REM ****** HEX TO DECIMAL ********* JD 
310 PRINT CHR$(147):PRINT "[7" "]HEX-T0- 
DECIMAL CONVERSION" LE 

320 PRINT; PRINT "[9" "] RANGE: TO [8"F" 
]":PRINT KI 

330 A$="": PRINT: PRINT "TYPE HEX NUMBER ( 
OR 'M'FOR MENU):": INPUT A$ 10 

340 IF A$="M" THEN 40 DO 

350 IF LEN(A$)>8 THEN 330 EB 

360 N=0 DD 

370 FOR L=l TO LEN(A$) OB 

380 HEX$(L)=MID$(A$,L,1) KP 

385 IF HEX$(L)<"0" OR HEX$(L)>"F" THEN 3 
30 CP 

386 IF HEX$(L)>"9" AND HEX$(L)<"A" THEN 
330 PA 
390 IF HEX$(L)<="9" THEN N=N*164VAL(HEX$ 
(L)):G0T0 430 PE 
400 IF HEX$(L)<"A" THEN 330 LL 
410 IF HEX$(L)>"F" THEN 330 MK 
420 N=N*16+ASC(HEX$(L))-ASC("A")+10 BJ 
425 IF N<0 THEN 330 PK 
430 NEXT L MO 
440 PRINT "DEC: ";N: PRINT IJ 
450 GOTO 330 CC 
470 REM ***** BINARY TO DECIMAL ******* AH 
490 PRINT CHR$(147):REM CLEAR SCREEN EG 
500 PRINT: PRINT "[6" "] BINARY-DECIMAL CO 



NVERSION" 

510 A$="": PRINT: PRINT "ENTER 

NARY NUMBER" 

515 INPUT "(OR 'M' FOR MENU): 

517 IF A$="M" THEN 40 

520 IF LEN(A$)<>8 THEN 510 

530 FOR L=8 TO 1 STEP -1 



HJ 
AN 8-BIT BI 

PB 
" ;A$: PRINT JM 
DO 
BL 
BB 
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•540 BIT$(L)=MID$(A$,L,1) IN 

•550 IF BIT$(L)<>"0" AND BIT$(L)<>"1" THE 

N 510 MA 

•560 NEXTL:F0RU1T08:BIT(L)=VAL(BIT$(L)) ON 
•590 NEXTL:ANS=0:M=256:F0RL=1T08 MA 
•630 M=M/2:ANS=ANS+BIT(L)*M:NEXTL BE 
•650 PRINT "DECIMAL; ";ANS:G0TO5 10 MP 
•670 REM **+* DECIMAL TO BINARY ******* GN 
•680 PRINT CHR$(147):REM CLEAR SCREEN EG 
•690 PRINT:PRINT "[5" "] DECIMAL-BINARY CO 
NVERSION": PRINT PG 

•700 PRINT "[9" "]RANGE: TO 255":PRINT GE 
•710 PRINT :BM$="":A$="":INPUT"TYPE A NUMB 
ER (OR 'M' FOR MENU)";A$:IFA$="M"THEN40 CA 
•715 IF A$="0" THEN 840 EG 

•720 IF VAL(A$)<1 OR VALCA$)>255 THEN 710 EB 
•730 NR=VAL(A$):F0RL=8T01STEP-l:Q=NR/2 OK 
•760 R=Q-INT(Q) FO 

•770 IF R=0 THEN BIT$(L)="0":G0T0 790 HJ 
•780 BIT$(L)="1" NE 

•790 NR=INT(Q):NEXTL LB 

•810 PRINT "BINARY: ";F0RU1T08:PRINTBIT$ 
(L);:NEXTL:PRINT:GOT0710 lA 

•840 FOR L=l TO 8:BIT$(L)="0":NEXT L:GOTO 

810 DA 

•845 REM ******* HEX TO BINARY ******** kD 
•850 PRINT CHR$(147):PRINT "[7" "]HEX-TO- 
BINARY CONVERSION": PRINT AH 

•860 PRINT"[12" "]RANGE: TO FF":PRINT DM 
•870 PRINT:PRINT "TYPE HEX NUMBER (OR 'M' 
FOR MENU) :":A$="": INPUT A$ JG 

•880 IF A$="M" THEN 40 DO 

•890 IF LEN(A$)>2 OR LEN(A$)<1 THEN 870 EB 
•900 HEX$(1)="":HEX$(2)="":F0RL=1T0LEN(A$ 
):HEX$(L)=MID$(A$,L,1) MJ 

•930 IFHEX$(L)<"0"0RHEX$(L)>"F"THEN870 CE 
•940 IFHEX$(L)>"9"ANDHEX$(L)<"A"THEN870 DN 
•960 NEXTL:IF HEX$(2)="" THEN HEX$(2)=HEX 
$(1):HEX$(1)="0" LM 

•970 FOR L=l TO 16: IF HEX$(1)=H$(L) THEN 
BIT$(1)=B$(L) HC 

•980 NEXTL:FOR L=l TO 16: IF HEX$(2)=H$(L) 

THEN BIT$(2)=B$(L) IG 

•995 NEXTL: PRINT: PRINT "BIN: "; EB 
•1000 PRINT BIT$(1);BIT$(2):G0T0 870 GF 

PROGRAMMERS... 

We're always interested in looking at top-quality pro- 
grams for the Commodore home computers. However, 
a great many factors other than the talent of the pro- 
grammer contribute toward making a program top-qual- 
ity. Before submitting a program to Ahoy!, we recom- 
mend that you send a stamped and self-addressed let- 
ter-size envelope to Ahoy! Writer's and Programmer's 
Guidelines, Ion International Inc., 45 West 34th Street- 
Suite 407, New York, NY 10001. 
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•1010 REM ***** BINARY TO HEX ******** JE 
•1020 PRINT CHR$( 147): PRINT CI 

•1030 PRINT" [8" "] BINARY-HEX CONVERSION" CA 
•1040 PRINT: PRINT "ENTER AN 8-BIT BINARY 

NUMBER" FL 

•1050 A$="": INPUT "(OR 'M' FOR MENU): ";A 

$: PRINT :IFA$="M"THEN40 EF 

•1070 IF LEN(A$)<>8 THEN 1040 DC 

•1100 F0RU8T01STEP-l:BIT$(L)=MID$(A$,L.l 

):IFBIT$(L)<>"0"ANDBIT$(L)<>"1"THEN510 KE 
•1110 NEXTL:BIT$=BIT$(lHBIT$(2)-hBIT$(3)+ 

BIT$(4)-HBIT$(5)-j-BIT$(6)+BIT$(7)+BIT$(8) BG 
•1120 T1$=LEFT$(BIT$,4):T2$=RIGHT$(BIT$,4 

):F0RL=1T016 NM 

•1130 IF T1$=B$(L) THEN HEX$(1)=H$(L) IL 
•1150 NEXTL: FOR L=l TO 16: IF T2$=B$(L) TH 

EN HEX$(2)=H$(L) NK 

•1170 NEXTL:PRINT "HEX: ";HEX$(1);HEX$(2) LF 
•1180 GOTO 1040 FO 



R A 



I □ 

FROM PAGE 60 CASSETTE BOOT 

•10 PRINT CHR$(147);CHR$(5):POKE 53280,2: 

POKE 53281,0 NI 

•40 PRINT CHR$(19);"P0KE 8192,0:P0KE 44,3 

2: NEW" GK 

•50 PRINT CHR$(17);CHR$(17);"LOAD"CHR$(34 

)"RAID"CHR$(34) LG 

•60 POKE 198,10 NH 

•70 DATA 19,13,13,32,32,32,82,85,78,13 ME 
•80 FOR 1=1 TO 10: READ X:POKE 630-^I,X:NEX 

T HM 

DISK BOOT 

•10 PRINT CHR$(147);CHR$(5):P0KE 53280,2: 

POKE 53281,0 NI 

•20 FOR 1=1 TO 6:PRINT CHR$(17) :NEXT U 
•30 FOR 1=1 TO 16: PRINT CHR$(29); :NEXT:PR 

INT"LOADING" MN 

•40 PRINT CHR$(19);CHR$(31);"P0KE 8192,0: 

POKE 44, 32: NEW" CO 

•50 PRINT CHR$(17);CHR$(17);"L0AD"CHR$(34 

)"RAID"CHR$(34)",8" BK 

•60 POKE 198,10 NH 

•70 DATA 19,13,13,32,32,32,82,85,78,13 ME 
•80 FOR 1=1 TO 10: READ X:POKE 630-hI,X:NEX 

T HM 



MAIN PROGRAM 

1 P0KE53280 , 1 :P0KE53281 , : P0KE646 , 1 



■9 REM 100-MAINLINE 

•10 REM ir//j-0NE-TIME INITIALIZATION 

'11 REM llOfj-VARIABLES FOR BACKGROUND 

•12 REM 1200-SETUP CHAR SET 



NN 
KE 
AO 
PH 

m 



•13 


REM 


•14 


REM 


•17 


REM 


•19 


REM 


•21 


REM 


•22 


REM 


•25 


REM 



1300-DISPLAY SCORE 00 

1400-DISPLAY BACKGROUND GK 
1700-DISPLAY INSTRUCTIONS HF 
1900-GET PLAYER INFO HO 

2100-READ MACHINE LANGUAGE PA 
2200-INIT MACHINE CODE PO 
2500-CRASH SOUND/DISPLAY MF 
•110 GOSUB U/jO:REM ONE-TIME INIT MC 
•120 GOSUB 1100: REM VARS FOR BACKGROUND NA 
•130 GOSUB 1700: REM DISPLAY INSTRUCTIONS A J 
•140 GOSUB 1200: REM SETUP CHAR SET NF 
•300 GOSUB 1900: REM GET PLAYER INFO CC 
•400 GOSUB 1400: REM DISPLAY BACKGROUND DG 
•420 GOSUB 2200: REM INIT MACHINE CODE NG 
•425 JV=PEEK(56320)AND31:IFJV=31THEN425 FF 
•430 SYS 49664:IF PEEK(49197)=0 THEN GOSU 
B 2500 JJ 

•435 HX-0:FOR 1=1 TO 29:IF PEEK(CRT+HL(I) 
)=83 OR HX(PL,I)<>0 THEN 445 FI 

•440 PT(PL)=PT(PL)+10:HX(PL,I)=1:HX=1 PA 
•445 NEXT I A 

•450 IF PEEK(49197)=0 THEN LI(PL)=LI(PL)- 
1:G0T0 470 MK 

•460 PT(PL)=PT(PL)+500:LV(PL)=LV(PL)+1 01 
•465 FOR 1=1 TO 29:HX(PL,I)=0:NEXT HJ 
•470 IF PEEK (491 52 )=0 AND HX=1 THEN PT(PL 

)=PT(PL)+100 GN 

•480 GOSUB 1300: REM DISPLAY SCORE IJ 
•485 IF TL=0 THEN 300 GD 

•490 GOTO 400 CA 

•999 END IC 

•1000 REM ONE-TIME INITIALIZATION KI 

•1005 P0KE53280,2:P0KE53281,0:P0KE646,1 BI 
•1010 X=RND(-TI):DIM ML(16),HL(29) ,HX(9,2 
9):CT=0 OP 

•1015 FOR 1=1 TO 16: READ V MP 

•1020 IF V<0 THEN GOSUB 50000: GOTO 1030 IK 
•1025 ML(I)=V:CT=CT-V HL 

•1030 NEXT lA 

•1035 DATA 123,126,133,136,143,146,153,15 
6,-1116 LN 

•1040 DATA 843,846,853,856,863,866,873,87 
6,-6876 HF 

•1045 FOR 1=1 TO 29: READ V MP 

•1050 IF V<0 THEN GOSUB 50000: GOTO 1060 IP 
•1055 HL(I)=V:CT=CT-V EK 

•1060 NEXT lA 

•1065 DATA 81,88,91,98,101,108,111,118,-7 
96 MI 

•1070 DATA 881,888,891,898,901,908,911,91 
8,-7196 DH 

•1075 DATA 249,250,269,270,729,730,749,75 
0,-3996 MP 

•1080 DATA 483,499,500,516,517,-2515 EA 
•1090 SID=54272 JK 

•1092 CRT=1024:C0=55296:MC(1)=4:MC(2)=12: 
MC(3)=8:MC(4)=3 DH 



•1094 DEF FNR(X)=INT(RND(1)*X)+1 PC 
•1096 SID=54272 JK 

•1098 RETURN IM 

•1100 REM VARS FOR BACKGROUND HE 

•1110 RV$=CHR$(18):RF$=CHR$(146):W1$=RV$+ 

" "+RF$+"[8" "]":W2$=RV$+" "+RF$ FG 
•1120 Ll$=RV$+"[40" "]"+RF$ MN 

•1130 L2$=W1$+W2$+W1$+W2$+W1$+W2$+W1$+W2$ CB 
•1140 L3$=W1$+"[10" "]"+W2$+Wl$+"[10" "]" 

+W2$ AP 

•1150 U$=W2$+W2$+W2$+W2$+"[5" "]"+W2$+Wl 

$+W2$+Wl$+W2$+W2$+"i5" "]" AN 

•1160 L4$=L4$+W2$+W2$+W2$+W2$ MN 

•1170 L5$=W1$+W2$+W1$+"[10" "]"+W2$+Wl$+W 

2$ HH 

•1180 CD$=CHR$(17):CU$=CHR$(145):CL$=CHR$ 

(157):CR$=CHR$(29):CS$=CHR$(147) NK 
•1185 HM$=CHR$(19) PF 

•1199 RETURN IM 

•1200 REM COPY CHARSET GE 

•1202 POKE 56334, PEEK ( 56334 )AND254 DN 
•1205 POKE 1,PEEK(1)AND251 IM 

•1210 SYS 49667 KO 

•1215 POKE 1,PEEK(1)0R4 BE 

•1220 POKE 56334, PEEK(56334)0R1 PD 
•1225 P0KE2864,0:P0KE2865,231:P0KE2866,12 

6:P0KE2867,60 AG 

•1230 POKE 2868,24:P0KE 2869,0:P0KE 2870, 

OiPOKE 2871,0 ND 

•1235 POKE 2696,0: POKE 2697, 126: POKE 2698 

,120: POKE 2699,120 EP 

•1240 POKE 2700, 27: POKE 2701, 27: POKE 2702 

,120: POKE 2703,0 EO 

•1245 POKE 53272, (PEEK(53272)AND240)0R2 ID 
•1299 RETURN IM 

•1300 REM DISPLAY SCORES GK 

•1302 PRINT CS$;CD$"PLAYER SCORE LEVEL 

LIVES LEFT" FL 

•1305 PRINT" [6"-"] [5"-"] [5"-"! flO"- 

"]'• DA 

•1310 TL=0:FOR I=1T0NP:PL$=" "+STR$(I)+" 

[3" "]•• HJ 

•1315 SC$=STR$(PT(I))+" " BH 

•1320 IFLEN(SC$)<7THENSC$=" "+SC$:GOT0132 

JJ 

•1325 LV$=STR$(LV(I))+" " AP 

•1330 IFLEN(LV$)<7THENLV$=" "+LV$:G0T0133 

AM 

•1335 TL=TL+LI(I):LI$="[4" "]"+STR$(LI(I) 

):IFLI(I)=0THENLI$="[3" "]*DEAD*" HM 
•1340 PRINT PL$;SC$;LV$;LI$:NEXT OJ 
•1345 IF TL=0 THEN 1375 HK 

•1350 PL=PL+1:IF PL>NP THEN PL=1 HE 
•1355 IF LI(PL)=0 THEN 1350 GL 

•1360 IF NP>1 THEN PRINT CD$"NEXT PLAYER 

IS PLAYER"; PL NG 

•1365 SYS 49673: FOR 1=1 TO 500: NEXT IJ 
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•1370 LV=LV( PL): RETURN KG 

•1375 PRINT CD$;CD$"ANOTHER GAME? "; EN 

•1380 GET X$:IF X$<>"Y"AND X$<>"N"THEN 13 

80 CN 

•1385 PRINT X$:IF X$="N" THEN END LF 
•1390 RETURN IM 

•1400 REM DISPLAY BACKGROUND LL 

•1401 B0%=FNR(16)-l:POKE53280,BO% OP 
•1402 PRINT CS$:P0KE53281,0:P0KE646,7 LG 
•1404 PRINT L1$;:F0R 1=1 TO 4: PRINT L2$;: 

NEXT: PRINT L3$; GD 

•1406 FOR 1=1 TO 4:PRINT L2$; : NEXT: PRINT 

L4$;: PRINT L5$; CA 

•1408 PRINT L4$;:F0R 1=1 TO 4: PRINT L2$;: 

NEXT KO 

•1410 PRINT L3$;:F0R 1=1 TO 4:PRINT L2$;: 

NEXT: PRINT Ll$; BH 

•1420 PRINT"PLAYER";PL;"[7" "]LEVEL";LV;H 

M$ IK 

•1425 IX=0 IK 

•1430 FOR 1=1 TO 16:IX=IX+1:IF IX>4 THEN 

IX=1 PN 

•1435 POKE CRT+ML(I),102:P0KE CCM-ML(I),MC 

(IX):NEXT:NH=0 DM 

•1440 FOR 1=1 TO 29: IF HX(PL,I)<>0 THEN 1 

447 AC 

•1445 POKE CRT+HL(I),83:POKE C0+HL(I),10: 

NH=NH+1 FK 

•1447 NEXT lA 

•1450 POKE CRT+481,81:P0KE CO+481,14 LB 
•1499 RETURN IM 

•1700 REM DISPLAY INSTRUCTIONS LK 

•1702 PRINT CS$;CD$"[17" "]RAID [3"!"]" JM 
•1705 PRINT CD$"[8" "](C) 1983 BY LARRY C 

OATS" lA 

•1710 PRINT CD$"COLLECT ALL THE HEARTS WH 

ILE AVOIDING" JF 

•1715 PRINT "THE BUTTERFLIES. THEN EXIT T 

HE SCREEN" FH 

•1720 PRINT"ON THE RIGHT." HI 

•1725 PRINT CD$"SCORING:" NP 

•1730 PRINT" [3" "]10 POINTS PER HEART" IC 
•1735 PRINT" 100 POINTS FOR GETTING LAST 



HEART" 



DH 



•1740 PRINT" 500 POINTS FOR SAFE EXIT" CJ 
•1745 PRINT CD$;CD$ BP 

•1750 GOSUB 2100:REM LOAD MACHINE LANGUAG 

E EO 

•1760 SYS 49670: REM PLAY SONG NJ 

•1799 RETURN IM 

•1900 REM GET PLAYER INFO DK 

•1902 NP=0: PRINT: PRINT CD$"HOW MANY PLAYE 

RS[SS](l-9)? "; OB 

•1905 GET NP$:IF NP$=""THEN 1905 FO 
•1910 IF NP$<"1"0R NP$>"9"THEN 1905 KP 
•1915 PRINT NP$:NP=VAL(NP$) ML 

•1920 PRINT CD$"WHAT SKILL LEVEL (1-9)? " 

; FK 
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•1925 GET X$:IF X$=""THEN 1925 ND 

•1950 IF X$<"1"0R X$>"9"THEN 1925 ME 
•1955 PRINT X$:LV=VAL(X$) DA 

•I960 FOR 1=1 TO NP:LV(I)=LV:PT(I)=0:LI(I 

)=3 KO 

•1965 FOR J=l TO 29:HX(I,J)=0:NEXT GA 
•1970 NEXT I A 

•1995 PL=1:PT=0: RETURN DK 

•2100 REM LOAD MACHINE LANG HM 

•2110 PRINT CD$;"[4" "][3"*"] LOADING MAC 

HINE LANGUAGE [3"*"]";CD$ CB 

•2120 FOR 1=49408 TO 50716 :READ V HH 
•2130 IF V<0 THEN GOSUB 50000:G0T0 2150 IK 
•2140 PRINT TAB(15);T:PRINT CU$;:P0KE I,V 

:CT=CT-V EI 

•2150 NEXT I A 

•2200 REM INIT ML STORAGE DB 

•2202 POKE49152,NH GC 

•2205 P0KE49154, 1505/256: P0KE49153,1505-P 

EEK(49154)*256 10 

•2210 X=49157:F0R 1=1 TO 16:ML=CRT+ML(I) DO 
•2215 POKE X+1, ML/256: POKE X,ML-PEEK(X+1) 

*256:X=X+2:NEXT NG 

•2220 X=RND(-TI):P0KE49193,FNR(256)-1:P0K 

E49194,FNR(256)-1 PH 

•2225 P0KE49197,0:P0KE49216,0 BC 

•2230 DL%=255-12*LV:IF DL%<0 THEN DL%=0 GC 
•2235 POKE 4921 7, DL% HN 

•2299 RETURN IM 

•2500 Rm CRASH EFFECTS OD 

•2510 FORIX=OT028:POKESID+IX,0:NEXT DP 
•2520 POKE SID+24,15 AH 

•2530 POKESID,20:POKESID+1,30:POKESID+5,0 

: POKES ID+6, 15* 16+9 EP 

•2535 SP%=PEEK( 53272) IH 

• 2537 SQ%=FNR(256)-1 : IF(SQ%AND240)=(SP%AN 
D240)0R(SQ%AND15)=(SP%AND15)THEN2537 JJ 

•2540 POKESID+4,129:POKE53272,SQ% PK 
•2550 F0RIX=1T020 : NEXT :P0KESID+4, 128 AH 
•2560 FORIX=1T03000:NEXT CN 

•2570 P0KE53272,SP% IM 

•2599 RETURN IM 

• 20000 A=49408 : ZH%=A/256 :ZL%=A-(256*ZH%) : 
P0KE49152,ZH%:P0KE49153,ZL% HK 

• 20005 B=30000:ZH%=B/256 : ZL%=B-(256*ZH%) : 
P0KE49154,ZH%:P0KE49155,ZL% OP 

•20010 A=PEEK(49153)+(256*PEEK(49152)):IF 

A=0 THEN END FA 

•20015 B=PEEK(49155)+(256*PEEK(49154)) JL 
•20020 C=A+15:D=C+1:IF 0=50716 THEN C=50 

716: D=0 KF 

•20025 ZH%=D/256:ZL%=D-(256*ZH%):P0KE 491 

52,ZH%:P0KE49153,ZL% CI 

•20030 D=B+10:ZH%=D/256:ZL%=D-(256*ZH%) :P 

OKE 49154, ZH%:POKE49155,ZL% GE 

• 20040 PRINT" [ CLEAR ] [ DOWN ] [ DOWN ] " ; B ; "DATA 

" " OG 

•20050 FOR I=A TO C:I$=STR$(PEEK(I)): J$=R 



IGHT$(I$,LEN(I$)-1) OK 

20060 PRINT J$;","; OE 

20070 NEXT: PRINT "[LEFT] ":PRINT"GOTO 20 
010" PP 

20080 PRINT" [HOME]"; CE 

20090 POKE 631, 13: POKE 632, 13: POKE 198,2 HG 
20095 END IC 

21000 REM DELETE ML NI 

21005 B=30000:ZH%=B/256:ZL%=B-(256*ZH%) : 
P0KE49154,ZH%:P0KE49155,ZL% OP 

21015 B=PEEK(49155)+(256*PEEK(49154)) JL 
21030 D=B+10:ZH%=D/256:ZL%=D-(256*ZH%) :P 
OKE 49154, ZH%:POKE49155,ZL% GE 

21040 PRINT"[CLEAR][ DOWN ][ DOWN ]";B AM 
21070 PRINT "[LEFT] ":PRINT"GOTO 21015" EG 
21080 PRINT" [HOME]"; CE 

21090 POKE 631,13:P0KE 632,13:P0KE 198,2 HG 
30000 DATA 226,219,98,91,219,215,91,215, 
217,215,89,87,215,254,87,254,-2792 CP 
30010 DATA 226,219,98,219,228,219,100,91 
,230,224,102,217,231,219,231,219,-3073 HG 
30020 DATA 231,219,103,91,226,217,98,89, 
226,219,226,219,226,219,98,91,-2798 FP 
30030 DATA 255,255,226,219,98,91,219,215 
,91,215,217,215,89,87,215,254,-2961 GE 
30040 DATA 87,254,226,219,98,219,228,219 
,100,91,230,224,102,217,231,219,-2964 PM 
30050 DATA 231,219,231,219,103,91,226,21 
7,98,89,226,219,226,219,226,219,-3059 HO 
30060 DATA 98,91,228,224,100,96,226,219, 
98,91,224,217,96,89,219,215,-2531 GI 
30070 DATA 91,87,224,217,96,89,219,215,9 
1,87,217,214,89,86,219,215,-2456 OH 
30080 DATA 219,215,219,215,91,87,215,210 
,87,82,215,210,215,210.215,210,-2915 PD 
30090 DATA 87,82,226,219,98,91,219,215,9 
1,215,217,215,89,87,215,254,-2620 NM 
30100 DATA 87,254,226,219,98,91,228,225, 
100,97,230,226,102,98,231,228,-2740 MD 
30110 DATA 103,100,230,226,102,98,231,22 
8,103,100,228,225,100,97,230,226,-2627 CI 
30120 DATA 102,98,231,228,103,100,230,22 
6,102,98,228,225,100,97,226,219,-2613 IN 
30130 DATA 98,91,217,217,89,217,226,217, 
98,89,225,215,97,87,226,214,-2623 BN 
30140 DATA 226,214,226,214,98,86,226,214 
,98,86,226,214,226,214,226,214,-3008 MP 
30150 DATA 98,86,255,255,255,255,255,255 
,255,255,255,255,255,255,255,255,-3754 FJ 
30160 DATA 76,126,194,76,78,196,76,125,1 
96,76,142,196,0,39,41,80,-1717 DF 
30170 DATA 255,255,255,255,255,82,2,42,2 
55,80,0,40,255,81,1,255,-2368 BI 

30180 DATA 255,255,255,255,255,81,1,255, 
255,81,1,255,255,255,255,255,-3224 IC 
30190 DATA 255,255,255,255,255,42,42,255 
, 255 , 40 , 40 , 255 , 255 , 255 , 255 , 255 , -3224 EP 
30200 DATA 0,231,126,60,24,0,0,0,0,0,0,2 



4,60,126,231,0,-882 AI 

30210 DATA 3,0,0,34,194,0,0,34,194,0,0,3 
4,194,0,0,0,-687 NJ 

30220 DATA 15,32,32,32,255,104,30,24,134 
,126,250,6,172,243,230,143,-1828 FA 
30230 DATA 248,46,134,142,150,159,168,17 
9,189,200,212,225,238,253,32,188,-2763 LG 
30240 DATA 194,24,173,45,192,109,64,192, 
240,1,96,32,38,196,32,130,-1758 JI 
30250 DATA 195,173,64,192,240,1,96,32,38 
,196,238,37,192,173,37,192,-2096 AN 
30260 DATA 41,1,10,10,10,168,162,0,185,6 
4,194,157,48,11,200,232,-1493 IP 

30270 DATA 224,8,208,244,169,11,141,18,2 
12,76,126,194,56,173,1,192,-2053 PF 
30280 DATA 233,41,133,251,133,253,173,2, 
192,233,0,133,252,24,105,212,-2370 KE 
30290 DATA 133,254,160,41,140,68,192,173 
,0,220,41,15,170,188,16,194,-2005 KJ 
30300 DATA 16,3,76,59,195,177,251,201,10 
2,208,4,238,64,192,96,201,-2083 PL 
30310 DATA 83,208,9,206,0,192,32,52,196, 
76,3,195,201,32,240,3,-1728 KK 

30320 DATA 76,76,195,140,68,192,160,41,1 
69,32,145,251,177,253,172,68,-2215 IJ 
30330 DATA 192,145,253,169,81,145,251,15 
2,24,101,251,141,1,192,165,252,-2515 HK 
30340 DATA 105,0,141,2,192,173,0,192,208 
,17,173,1,192,201,6,208,-1811 PO 

30350 DATA 10,173,2,192,201,6,208,3,238, 
45,192,172,68,192,177,253,-2132 EL 
30360 DATA 24,105,1,41,15,208,2,169,1,14 
5,253,96,173,0,220,41,-1494 JK 

30370 DATA 15,170,188,32,194,16,3,76,59, 
195,177,251,201,83,240,4,-1904 KE 
30380 DATA 201,32,208,3,76,239,194,173,0 
,220,41,15,170,188,48,194,-2002 NH 
30390 DATA 16,3,76,59,195,177.251,201,83 
,240,4,201,32,208,188,76,-2010 JL 
30400 DATA 239,194,162,30,142,63,192,189 
,6,192,141,4,192,189,5,192,-2132 HB 
30410 DATA 141,3,192,32,179,195,174,63,1 
92,173,4,192,157,6,192,173,-2068 MG 
30420 DATA 3,192,157,5,192,202,202,142,6 
3,192,173,64,192,208,3,138,-2128 PM 
30430 DATA 16,213,96.56,173,3,192,233,40 
,133,251,133,253,173,4,192,-2161 PI 
30440 DATA 233,0,133,252,24,105,212,133, 
254,169,81,162,3,188,12,194,-2155 LI 
30450 DATA 209,251,240,19,202,16,246,32, 
13,196,41,3,170,188,12,194,-2032 JK 
30460 DATA 169,32,209,251,240,4,96,238,6 
4,192,140,68,192,160,40,169,-2264 MP 
30470 DATA 32,145,251,177,253,172,68,192 
,145,253,169,102,145,251,152,24,-2531 JH 
30480 DATA 101,251,141,3,192,165,252,105 
,0,141,4,192,96,173,41,192,-2049 CO 
30490 DATA 42,77,41,192,106,238,42,192,1 
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Tn onfoi' ROC Dliio "^^^ "^"^^ ^"^^'' ^^^ ^°^^ '" '^^ "^"2' "fianner, prescribed on pages 85 and 86, then enter 
lU clIICi UUa riUb... the main program by using Flankspeed (see page 86). 



09,42,192,80,3,238,42,192,-1828 CO 
•30500 DATA 141,41,192,41,127,96,174.65,1 

92,240,8,160,64,136,208,253,-2138 EI 
•30510 DATA 202,208,248,96,169,20,141,15, 

212,169,1,141,19,212,169,200.-2222 HP 
•30520 DATA 141,20,212,169,15,141,24,212, 

169,17.141,18,212,96,169,0,-1756 CI 
•30530 DATA 133,251,133,253,169,208,133,2 

52,169,8,133,254,162,8,160,0,-2426 HF 
•30540 DATA 177,251,145,253,200.208,249,2 

30,252,230,254,202,208,240,162,21,-3282 ED 
•30550 DATA 189,80,194,157,69,192,202,16, 

247,32,159,196.96,169,50,141,-2189 ND 
•30560 DATA 91.192,169,193,141,92,192,32, 

110,196,32,170,197,96.169,0,-2072 AG 
•30570 DATA 141,91,192,169,193.141,92,192 

,32,110,196,32.170,197,96,169,-2213 FK 
•30580 DATA 4,44.69,192,240,24.173,70,192 

,141,2.212,173,71,192,141,-1940 GJ 
•30590 DATA 3,212,173,72,192,141,5.212,17 

3,73,192,141,6,212,169,2,-1978 AE 
•30600 DATA 44,69,192,240,24,173.74,192,1 

41,9,212,173,75,192.141,10,-1961 FI 
•30610 DATA 212,173,76,192,141.12,212,173 

,77,192,141,13,212.169,1,44,-2040 GN 
•30620 DATA 69,192,240,24,173,78,192,141. 

16,212,173,79,192,141,17,212,-2151 PD 
•30630 DATA 173,80,192,141,19,212,173.81, 

192,141,20,212,162,3,189,82.-2072 KL 
•30640 DATA 192,157,21,212,202,16,247.173 

,91,192,141,93,192,173,92,192,-2386 MN 
•30650 DATA 141,94,192.96,169,4,44,69,192 

,240.42,32,211,197,201,255,-2179 LJ 
•30660 DATA 208,1,96,201,254,208.8.169,0, 

141,4.212,76,69,197,174,-2018 MA 

•30670 DATA 95,192,142.0.212.174,96,192.1 
42,1,212,10,42,41,1,13,-1565 KE 

•30680 DATA 86,192,141,4,212,169,2,44,69. 

192,240,42,32,211,197,201,-2034 DK 
•30690 DATA 255.208,1,96,201,254,208,8,16 
9,0,141,11,212,76,118,197,-2155 IM 
•30700 DATA 174,95,192,142,7.212,174.96,1 
92,142,8,212,10,42,41,1,-1740 LI 

•30710 DATA 13.87,192,141,11,212,169,1,44 

,69,192,240,42,32,211,197,-1853 EF 
•30720 DATA 201,255,208,1,96,201,254,208, 
8,169,0,141,18,212,76,167,-2215 CE 
•30730 DATA 197,174,95.192.142,14,212,174 

,96,192,142,15,212,10,42,41,-1950 ML 
•30740 DATA 1,13,88.192,141,18,212,169,0, 
96,173.69,192,41,7,240,-1652 JM 

•30750 DATA 33,173,91.192,141,93,192,173. 
92,192,141,94.192,32,20,197,-2048 BP 
•30760 DATA 201,255,240,14,174,90,192,160 
,0,136. 208 , 253 , 202 , 208 , 248 . 76 , -2657 KP 

98 AHOY! 



•30770 DATA 189,197,96,173,93.192,141,224 

,197,173,94,192,141,225,197,173,-2697 FA 
•30780 DATA 48,193,238,93,192,208,3,238,9 

4,192,201,254,176,3,32,242.-2407 EE 
•30790 DATA 197,96,170,41,15,168,185.102, 

194,141,95,192,185,114,194.141,-2230 AA 
•30800 DATA 96.192,138,74,74,74,74,24,109 

,89,192,41,7,73,7,168,-1432 LA 

•30810 DATA 240,9,78,96,192.110.95,192,13 

6,208,247,138,96,-1837 BL 

•50000 IF VOCT THEN PRINT"ERROR IN DATA 

LINE r;PEEK(64)*256+PEEK(63):END BI 
•50010 1=1-1 :CT=0: RETURN JG 
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A2 07 98 18 08 


CE50: 


2C 20 24 


20 


27 


29 00 


OD 


3E 


CC88: 


7D 7F 03 9D 


-7F 03 9D 8A DO 


CE58: 


OD 44 55 


4D 


50 


49 4E 


47 


7B 


CO 90: 


03 A 9 00 CA 


10 F2 BO 01 BC 


CE60: 


3A 20 00 


20 


4E 


45 58 


54 


IB 


CC98: 


18 60 A2 07 


18 3E 7F 03 93 


CE68: 


20 54 26 


53 


3A 


20 00 


OD 


BD 


CCAO: 


CA 10 FA 60 


AE 86 03 AD BC 


CE70; 


52 45 54 


55 


52 


4E 20 


54 


C6 


CCA8: 


85 03 20 12 


CD 4C 68 CB Bl 


CE78: 


4F 20 45 


58 


49 


54 13 


00 


36 


CCBO: 


8D A7 03 8E 


A6 03 A2 09 CC 


CE80: 


93 4E 4F 


4E 


2D 


48 45 


58 


13 


CCB8: 


8E A8 03 AO 


BO AD A6 03 9B 


CE88: 


20 23 00 


93 


52 


45 57 


52 


AO 


CCCO: 


DD 5F CD AD 


A7 03 FD 60 82 


CE90: 


49 54 49 


4E 


47 


OD 00 


24 


3E 


CCC8: 


CD 90 OF 8D 


A7 03 AD A6 C2 


CE98: 


30 3A 3C 


3E 


OD 


46 49 


4C 


66 


CCDO: 


03 FD 5F CD 


8D A6 03 C8 FE 


CEAO: 


45 20 54 


4F 


4F 


20 42 


49 


A4 


CCD8: 


DO E3 98 CA 


FO 11 C9 BO 6D 


CEA8: 


47 OD 00 


OD 


49 


4E 53 


45 


3A 


CCEO: 


FO 03 8D A8 


03 2C A8 03 E5 


CEBO: 


52 54 20 


12 


44 


45 53 


54 


BA 


CCE8: 


30 05 AD A9 


03 FO IF 29 Bl 


CEB8: 


49 4E 41 


54 


49 


4F 4E 


92 


5F 


CCFO: 


7F 8E 99 03 


AE 15 CF DO FF 


CECO: 


20 44 49 


53 


4B 


20 2D 


50 


AA 


CCF8: 


OF AE 98 03 


9D 75 03 E8 51 


CEC8: 


52 45 53 


53 


20 


12 52 


45 


DO 


CDOO: 


8E 98 03 AE 


99 03 10 06 8B 


CEDO: 


54 55 52 


4E 


92 


OD 00 


OD 


C7 


CD08: 


AE 99 03 20 


D2 FF CA 10 21 


CED8: 


92 54 4F 


20 


3F 


20 38 


2F 


F5 


CDIO: 


A A 60 20 16 


CD 8A 48 4A 3C 


CEEO: 


39 20 00 


93 


43 


4F 50 


59 


OA 


GDIS: 


4A 4A 4A 20 


21 CD 68 29 97 


CEE8: 


49 4E 47 


3 A 


20 


12 00 


20 


54 


CD20: 


OF 09 30 C9 


3A 90 02 69 68 


CEFO: 


42 59 54 


45 


53 


20 43 


4F 


2C 


CD28: 


06 4C D2 FF 


A9 00 8D AB 30 


CEF8: 


50 49 45 


44 


OD 


00 4C 


3A 


AF 


CD30: 


03 A A FO 03 


OD A A 03 8D lA 


CFOO: 


CO OD lA 


27 


34 


41 4E 


5B 


2E 


CD38: 


AA 03 BD 75 


03 FO 20 C9 F6 


CF08: 


68 75 82 


8F 


9C 


A9 B6 


C3 


B8 


CD40: 


30 90 IC 49 


30 C9 OA 90 FA 


CFIO: 


DO DD EA 


F7 


08 


01 52 


45 


42 


CD48: 


08 69 88 C9 


FA 90 10 49 FO 


CF18: 


4C 20 00 


44 


45 


4C 20 


00 


7A 


CD50: 


FO E8 AO 04 


OE A A 03 2E B8 


CF20: 


50 52 47 


20 


00 


55 53 


52 


25 


CD58: 


AB 03 88 DO 


F7 FO D5 60 7F 


CF28: 


20 00 53 


45 


51 


20 00 


93 


E5 


CD60: 


01 00 OA 00 


64 00 E8 03 BB 


CF30: 


12 44 49 


53 


4B 


3A 20 


00 


C8 


CD68: 


10 27 OA CC 


2B CC 89 C4 BC 


CF38: 


2C 20 2 


20 


44 


4F 53 


20 


CB 
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IMPriRTAMTI Letters on white background are Bug Repellent I 
IIVIi Uli I fill I I and provide other essential information on entering 

CF40: 56 45 52 20 20 20 OD 12 AD 

CFA8: 46 49 4C 45 4E 41 4D 45 8B 

CF50: 20 20 20 20 20 20 20 20 51 

CF58: 20 20 20 20 54 59 50 20 F6 

CF60: 42 4C 4B 20 4C 4F 41 44 7B 

CF68: 20 41 44 44 52 53 92 OD 97 

CF70: 00 02 22 42 62 82 A2 C2 21 

CF78: E2 31 38 20 31 OD FF 31 54 

CF80: 38 20 34 OD FF 31 38 20 A3 

CF88: 37 OD FF 31 38 20 31 30 B7 

CF90: OD FF 31 38 20 31 33 OD 98 

CF98: FF 31 38 20 31 36 OD FF 96 

CFAO: 31 38 20 32 OD FF 31 38 D2 

CFA8; 20 35 OD FF 31 38 20 38 CC 

CFBOt OD FF 31 38 20 31 31 OD B6 

CFB8: FF 31 38 20 31 34 OD FF B4 

CFCO: 31 38 20 31 37 OD FF 31 FO 

CFC8: 38 20 33 OD FF 31 38 20 EA 

CFDO: 36 OD FF 31 38 20 39 OD E3 

CFD8: FF 31 38 20 31 32 OD FF D2 

CFEO: 31 38 20 31 35 OD FF 31 OF 

CFE8: 38 20 31 38 OD FF 01 00 B8 

CFFO: 00 00 00 00 00 4C 68 CB 71 

CFF8: 4C 68 CB 4C 68 CB 00 F9 

TWO-COLUMN DIRECTORY 

FROM PAGE 30 MAIN PROGRAM 

5 R^ *******>!(******** QP 

10 REM DEFINE VARIABLES AC 

15 REM **************** QD 

20 POKE 53280,6: POKE 53281,0: POKE 646, 
1: REM SET SCREEN, TEXT COLORS BJ 
25 C0L=1: DIM FI$(40) AF 

30 WH$=CHR$C5): GR$=CHR$(30) : YE$=CHR$(1 
58): 0G$=CHR$(129): PU$=CHR$(156) LE 
35 CL$=CHR$(147): H0$=CHR$(19): RV$=CHR$ 
(145)+CHR$(18): UP$=CHR$(145) HN 

40 SP$=" ": FOR BL=0 TO 18: SP$=SP$+" " 
: NEXT KB 

45 OPEN 6,8,0,"$": REM OPEN DIRECTORY MD 
50 REM ************************** OG 
55 REM FIND AND PRINT DISK HEADER ND 
60 REM ************************** OG 

65 PRINT CL$: REM CLEAR SCREEN BE 
70 GOSUB 535: PRINT H0$; PD 

75 GET#6, BY$: IF BY$ <> CHR$(34) THEN 7 
5 IN 

80 PRINT SPC(8) "[RVSON]";OG$;BY$; CE 
85 GET#6, BY$: IF BY$ <> "" THEN PRINT B 
Y$;: GOTO 85 GN 

90 PRINT WH$ FP 

95 REM ************************ JL 

100 REM FIND AND PRINT FILENAMES MM 
105 REM ************************ JL 

110 FOR ENTRY=0 TO 19: 1=1+1: F$-"": SK= 



ne codes. Do not enter them! Pages 85 and 86 explain these codes 
Ahoy! programs. Refer to these pages before entering any programs! 



115 GET#6, BY$,BY$:GET#6, HB$,LB$ 

120 GET#6, BY$: IF BY$ <> CHR$C32) THEN 

230 

125 GET#6, BY$: IF BYS <> CHR$(34) THEN 

125 

130 IF COL/2=INT(COL/2) THEN PRINT TAB(1 

135 FOR BL=1 TO 16: GET#6, BY$ 

140 IF BY$="" THEN 160 

145 IF BY$=CHR$(34) THEN SK=1: GOTO 160 

150 IF SK=0 THEN F$=F$+BY$ 

155 GOTO 165 

160 BY$=CHR$(32) 

165 PRINT BY$;: NEXT: FI$(I)=F$ 

170 GET#6, BY$ 

175 GET#6, BY$: 

180 PRINT ","; 

185 GET#6, BY$; 



IF BY$=CHR$(32) THEN 175 
BY$; " " 

IF BY$ <> "" THEN 185 
190 NEXT: COL=COL + 1 

200 IFCOL > 2 AND COL/2 <> INT(C0L/2) TH 
EN 1=0: GOSUB 560 

205 IF C0L=2 THEN PRINT H0$: GOTO 110 
210 POKE 214,22: P0KE2 11,0: PRINT RV$;YE$ 
;" ":GOSUB430: GOSUB 265: PRINT HO$;WH$ 
215 IF COL/2 <> INT(C0L/2) THEN FOR BL=0 
TO 19: PRINT SP$: NEXT: GOTO 225 
220 FOR BL=0 TO 19: PRINT TAB(19);SP$: N 
EXT: GOSUB 580 

225 PRINT SP$;SP$;HO$: GOTO 110 
230 REM ***************** 

235 REM PRINT BLOCKS FREE 
240 REM ***************** 
245 BL = ASC(HB$+CHR$(0)): BL$=STR$(BL+2 
56 * ASC(LB$+CHR$(0))) 
250 POKE 214,22: POKE 211,0: PRINT RV$;Y 
E$;" " 

255 POKE 214,23:P0KE 211,10:PRINT RV$;PU 
$;BL$;" BLOCKS FREE ";: CLOSE 6: BC=1 
260 GOSUB 430: GOSUB 265: PRINT WH$ + CL$ 
: END 

265 REM *********************** 
270 REM DETERMINE USER'S CHOICE 
275 REM *********************** 
280 C=0: R=21: SC=1024: X=1864: D=54272: 
0K=0 

285 GET BY$:IF BY$="" THEN 285 
290 IF BY$=CHR$(I33) THEN GS=1: GOSUB 34 
0: GS=0: RETURN: REM DISPLAY MORE DIR. 
295 IF BY$=CHR$C134) THEN RUN: REM REPEA 
T DIR. 

300 IF BY$=CHR$(135) THEN 385: REM LOAD 
A PROGRAM 

305 IF BY$=CHR$(136) THEN GOSUB 465: RET 
URN: REM ERASE A PROGRAM 
310 IF BY$=CHR$(17) THEN R=R+1: 0K=1: IF 



NB 

BL 

FL 

IM 

MJ 
CF 
KH 
AA 
KM 
CK 
AA 
AG 
PM 
MC 
JM 
CF 
BC 

CM 
lA 

OD 

EL 

AG 
LL 
JN 
PD 
JN 

EL 

FH 

NE 

CC 
HE 
MG 
HE 

KL 
FB 

DI 

MO 

HM 

ED 
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K>21 THEN R=21: REM CURSOR DOWN LC 
•315 IF BY$=CHR$(145) THEN R=R-1: 0K=1: I 

F R<1 THEN R=l: REM CURSOR UP AF 

•320 IF BY$=CHR$(29) THEN C=20: 0K=1: REM 

CURSOR RIGHT PL 

•325 IF BY$=CHR$(157) THEN C=0: 0K=1: REM 

CURSOR LEFT PD 

•330 IF 0K=0 THEN 265 FN 

•335 GOSUB SAO: GOTO 285 HE 

•340 REM *********** GE 

•345 REM MOVE CURSOR KB 

•350 REM *********** GE 

•355 FOR Y=X TO X+1 ME 

•360 IF PEEK(Y) > 128 THEN POKE Y,(PEEK(y 

)-128): POKE Y+D,l HE 

•365 NEXT: IF GS THEN RETURN CN 

•370 POKE 211, C: POKE 214, R: PRINT UP$;: 

X=SC+(40*R)+C LB 

•375 FOR Y=X TO X+1: IF PEEK(Y) < 128 THE 

N POKE Y,(PEEK(Y)+128): POKE Y+D,7 IB 
•380 NEXT: RETURN EJ 

•385 REM ************** OK 

•390 REM LOAD A PROGRAM DI 

•395 REM ************** OK 

•400 CLOSE 6: Z=R:IF R>20 THEN RETURN OP 
'405 IF C=20 THEN Z=Z+20 AG 

•410 IF FI$(Z)="" THEN RETURN BD 

•415 PRINT "[CLEAR] [RVSOFFJLOAD"; CHR$(34 

); FI$(Z); CHR$(34);",8" FE 

•420 PRINT "[4"[D0WN]"]RUN[4"[UP]"]" EK 
•425 POKE 631,19: POKE 632,13: POKE 633,1 

3: POKE 198,3: END LN 

•430 REM **** DP 

•435 REM BEEP LB 

•440 REM **** DP 

•445 POKE 54296,15: POKE 54277,7: POKE 54 

278,133 AK 

•450 POKE 54273,28: POKE 54272,49: POKE 5 

4276,17 BJ 

•455 FOR K=l TO 150: NEXT: POKE 54276,18 OG 
•460 POKE 54296,0: RETURN LH 

•465 REM *************** GE 

•470 REM ERASE A PROGRAM FM 

•475 REM *************** CE 

•480 POKE 214,25: POKE 211,0:PRINT RV$;"[ 
4" "]ERASE — ARE YOU SURE (Y/N)?[7" "]" 



EL 
GI 
EP 
CG 



•485 GET J$: IF J$="" THEN 485 

•490 IF J$ <> "Y" THEN 500 

•495 GOT0510 

•500 GOSUB 535: GS=1: GOSUB 340: GS=0: IF 

BC THEN 250 DK 

•505 GOTO 210 BP 

•510 Z=R: IF C=20 THEN Z=Z+20 HK 

•515 IF FI$(Z)="" OR R>20 THEN G0SUB535:G 

OTO 265 HH 

•520 KL$="SO:"+FI$(Z) LB 

•525 OPEN 15,8,15: PRINT#15, KL$: CL0SE15 
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; RUN 
•535 REM ****************** 
•540 REM PRINT COMMAND LINE 
•545 REM ****************** 
•550 POKE 214,25: POKE 211,0 
•555 PRINT RV$+GR$+" F1=M0RE F3=REPEAT 

F5=L0AD F7=ERASE ";: RETURN 
•560 REM ********************** 

•565 REM SET FILENAMES TO NULLS 

•570 REM ********************** 

•575 FOR K=l TO 20: FI$(K)="": NEXT: RETU 
RN 



•580 FOR K=21 TO 40: FI$(K)="": NEXT: 
URN 



RET 



PC 
LO 
GD 

LO 
JI 

KJ 
FC 
BF 
FC 

MI 

EM 



SUBROUTINE (See article) 
•5 REM **************** Qj) 

•10 REM DEFINE VARIABLES AC 

•15 REM **************** GQ 

•20 POKE 53280,6: POKE 53281,0; POKE 646, 

1: REM SET SCREEN, TEXT COLORS BJ 
•25 C0L=1 ND 

•30 WH$=CHR$(5): GR$=CHR$(30) : YE$=CHR$(1 

58): OG$=CHR$(129): PU$=CHR$(156) LE 
•35 CL$=CHR$(147): H0$=CHR$(19) : RV$=CHR$ 

(145)+CHR$(18): UP$=CHR$(145) HN 

•40 SP$=" ": FOR BL=0 TO 18: SP$=SP$+" " 

: NEXT KB 

•45 OPEN 6,8,0,"$": REM OPEN DIRECTORY MD 
•50 REM ************************** OG 
•55 REM FIND AND PRINT DISK HEADER ND 
•60 REM ************************** OG 
•65 PRINT CL$: REM CLEAR SCREEN BE 
•75 GET#6, BY$: IF BY$ <> CHR$(34) THEN 7 

5 IN 

•80 PRINT SPC(8) "[RVS0N]";0G$;BY$; CE 
•85 GET#6, BY$: IF BY$ <> "" THEN PRINT B 

Y$;: GOTO 85 GN 

•90 PRINT WH$ FP 

•95 REM ************************ jL 

•100 REM FIND AND PRINT FILENAMES MM 
•105 REM ************************ JL 

•110 FOR ENTRY=0 TO 19: 1=1+1: F$="": SK= 

NB 

•115 GET#6, BY$,BY$:GET#6, HB$,LB$ BL 
•120 GET#6, BY$: IF BY$ <> CHR$(32) THEN 

230 FL 

•125 GET#6, BY$: IF BY$ <> CHR$(34) THEN 

125 IM 

•130 IF C0L/2=INT(C0L/2) THEN PRINT TAB(1 

9)" "; MJ 

•135 FOR BL=1 TO 16: GET#6, BY$ CF 
•140 IF BY$="" OR BY$=CHR$(34) THEN BY$=C 

HR$(32) OA 

•165 PRINT BY$;:NEXT FA 

•170 GET#6, BY$ PM 

•175 GET#6, BY$: IF BY$=CHR$(32) THEN 175 MC 
•180 PRINT ","; BY$; " " JM 



I RA DHDT A MTI Letters on while background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
I IVI r Un I nvi I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 

•2130 PRINT JJ 

•2140 FOR L=P TO P+63 STEP 4: PRINT HX$(L/ 

16);HX$(LAND15);":"; EC 

•2150 FOR By=L TO L+3:PRINT HX$(D%(BY)/16 
);HX$(D%(BY)AND15);" ";:NEXT DE 

•2160 FOR BY=L TO L+3:C$=CHR$(D%(BY)):IF 
C$<" " OR C$>"t BACK ARROW]" OR C$=CHR$(34 
) THEN 0$="." JA 

•2170 PRINT C$;:NEXT PF 

•2180 PRINT: NEXT FA 

•2200 REM*ALLOW MODS HO 

•2210 L=0:C=0 JA 

•2220 BY=P+L*4+C/2;HX=CAND1:H1$(0)=HX$(D% 
(BY)/16):H1$(1)=HX$(D%(BY)AND15):C1=INT( 
C*1.5) NC 

•2225 POKE 781,U3:P0KE 782,C1+3:P0KE 783 



•185 GET#6, BY$: IF BY$ <> "" THEN 185 CF 
•190 NEXT: COL=COL + 1 BC 

•205 IF C0L=2 THEN PRINT HO$+"[DOWN]": GO 

TO 110 JC 

•210 PRINT" [DOWN] [12" "][RVS0N]PRESS A KE 

Y[RVSOFF] AE 

•211 GETJ$:IFJ$="" THEN 211 LI 

•212 PRINT H0$+" [DOWN] [DOWN]"; MH 

•215 IF COL/2 <> INT(C0L/2) THEN FOR BL=0 

TO 19: PRINT SP$: NEXT: GOTO 225 OM 
•220 FOR BL=0 TO 19: PRINT TAB(19);SP$: N 

EXT PA 

•225 PRINT SP$;SP$;HO$;"[DOWN]": GOTO 110 KG 
•230 REM ***************** CJ 

•235 REM PRINT BLXKS FREE EA 

•240 REM ***************** CJ 

•245 BL = ASC(HB$+CHR$(0)): BL$=STR$(BL+2 

56 * ASC(LB$+CHR$(0))) OD 

•255 POKE 214, 23: POKE 211, 10: PRINT RV$;PU 

$;BL$;" BLOCKS FREE ";: CLOSE 6: BC=1 JO 

D S K D U 

FROM PAGE 25 

The Bug Repellent line codes listed to the right of the program 

lines of DSKDU are for the C-64 only. If you are typing in the 

program on a VIC 20, you must use the VIC 20 Bug Repellent 

line codes found on pages 106-107. 

•1 N$="*DSKDU*":N1$="BY MARK JOHANSEN" AB 

•2 DA=8:G0TO8000 PC 

•10 REM*HEX IN DG 

•12 N=0:IF LEN(H$)=0 THEN RETURN JE 
•14 FOR HX=1T0LEN(H$):N1=:ASC(MID$(H$,HX.1 

)):N1=N1-48:IF Nl>9 THEN Nl=Nl-7 PN 

•16 N=N*16+N1:NEXT FJ 

•18 RETURN IM 

•1000 REM*READ OB 
• 1010 PRINT" [ CLEAR ] [ RVSON ] " ; N$ : PRINT" [ RVS 

0N]";N1$:PRINT AA 

•1020 INPUT"TRACK";H$:G0SUB10:T=N ME 

•1030 INPUT"SECT0R";H$:G0SUB10:S=N CE 
•1110 PRINT#15,"Ul:2,0,"T;S:G0SUB90r/j:IF 

ER>0 THEN 1000 OF 

•1120 PRINT* 15, "B-P: 2,0" NP 
•1130 D%(0)=0:P0KE 828,PEEK(71) :P0KE 829, 

PEEK(72):SYS880 DG 

•1160 GOSUB9000:IF ER>0 THEN 1000 BE 

•2000 REM*VIEW/M0D BL 

•2010 P=0 DF 

•2100 REM FLASH SCREEN LG 

•2102 IF P<0 THEN P=192 AN 

•2104 IF P>192 THEN P=0 AB 
•2110 PRINT" [ CLEAR ]TRACK ";HX$(T/16) ;HX$( 

T AND 15) KH 
•2120 PRINr'SECTOR ";HX$(S/16) ;HX$(S AND 

15) HN 



,0:SYS65520 

2230 POKE 204,0 

2240 GET I$:IF 1$="" THEN 2240 

2250 POKE 204,1:PRINT H1$(HX); 

2260 IF I$="[F1]" THEN P=P-64:G0T02100 

2270 IF I$="[F3]" THEN P=P+64:GOT02100 

2280 IF I$="[F7]" THEN 1000 

2285 IF I$="[F4]" THEN T=D%(0) :S=D%(1):G 

OTOUIO 

2290 IF I$="[DOWN]" THEN 2750 

2300 IF I$="[ RIGHT]" THEN 2700 

2310 IF I$="[UP]" THEN 2800 

2320 IF I$="[LEFT]" THEN 2850 

2330 IF I$="[F8]" THEN 3000 

2340 IF I$="[F2]" THEN 4000 

2350 IF I$="[H0ME]" THEN 2210 

2400 IF I$<"0" OR I$>"F" OR I$>"9" AND I 

$<"A" THEN 7000 

2410 PRINT "[LEFT]"I$; 

2430 H1$(HX)=I$:H$=H1$(0)+H1$(1) 

2450 G0SUB10:D%(BY)=N 

2460 POKE 781,L+3:P0KE 782,0/2+1 5: POKE 7 

83,0:SYS65520 

2470 C$=CHR$(D%(BY)):IF C$<" " OR C$>"[B 

ACKARROW]" OR C$=CHR$(34) THEN C$="." 

2480 PRINT C$; 

2490 REM FALL THRU INTO CURSOR RIGHT 

2700 REM CURSOR RIGHT 

2710 C=C+1:IF C>7 THEN C=0:G0T02750 

2720 GOT02220 

2750 REM CURSOR DOWN 

2760 L=L+1:IF L>15 THEN L=0 

2770 GOT02220 

2800 REM CURSOR UP 

2810 L=L-1:IF L<0 THEN L=15 

2820 GOT02220 

2850 REM CURSOR LEFT 

2860 C=C-1:IF C<0 THEN C=7:G0T02800 

2870 GOT02220 

3000 REM*WRITE 



LL 
JJ 
KG 

CB 

OA 
EK 
NF 

KP 
GA 
HL 
BJ 
PG 
OD 
OD 
IF 

OA 
CJ 
AB 
10 

BJ 

II 
DM 
LO 
NK 
HJ 
EP 
LM 
FP 
EP 
OK 
GA 
EP 
LJ 
KO 
EP 
FL 
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•3010 PRINT" [CLEAR] PREPARING TO WRITE" NG 
•3020 PRINT" TRACK ";HX$(T/16) ;HX$(T ANDl 

5);" SECTOR ";HX$(S/16);HX$(S AND15) CJ 
•3030 PRINT :PRINT"<RET> TO WRITE" :PRINT"A 

NY OTHER KEY TO ABORT" 
•3040 GET I$:IF 1$="" THEN 3040 
•3050 IF I$<>CHR$(13) THEN 2100 
•3100 REM DO WRITE 
•3110 PRINT#15,"B-P:2,0" 
•3120 PRINT"WRITING [3"."]" 
•3130 D%(0)=D%(0):POKE 828,PEEK(71):P0KE 

829,PEEK(72):SYS910 
•3140 PRINT#15,"U2:2,0,";T;S:GOSUB9000:IF 



ER THEN 2100 
•3150 G0T02100 
•4000 REM*QUIT 
•4010 CL0SE2:CL0SE15 
•4020 PRINT" [CLEAR] DONE [3"."]" 
•4030 POKE 204,0: END 
•70fjO REM*HELP 

•7010 PRINT" [ CLEAR ]DSKDU HELP":PRINT 
•7020 PRINT"F1 PREVIOUS PAGE" 
•7030 PRINT"F3 NEXT PAGE" 
•7050 PRINT"F7 READ SECTOR" 
•7060 PRINT"F4 READ NEXT SECTOR" 
•7065 PRINT"[3" "]IN FILE" 
•7070 PRINT"F8 WRITE SECTOR" 
•7080 PRINT"CRSR CONTROLS" 
•7090 PRINT" [3" "] UP, DOWN, LEFT, RIGHT" 
•7100 PRINT"HOME TOP LEFT CORNER" 
•7120 PRINT"0-9,A-F" 
•7130 PRINT" [3" "] OVERWRITE NIBBLE" 
•7140 PRINT"F2 QUIT" 
•7200 PRINT: PRINT" (ANY KEY TO CONT)" 
•7210 GET I$:IF 1$="" THEN 7210 
•7220 GOT02100 
•8000 REM*INIT 
•8020 OPEN 15, DA, 15 
•8030 OPEN2,DA,2,"#" 
•8040 DIM D%(255) 
•8050 DIM HX$(15):F0R BY=0T01 5 : READ HX$(B 

Y):NEXT FP 

•8060 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D.E, 

F BK 

•8070 DIM Hl$(l) KK 

•8100 REM LOAD ML ROUTINES PO 

•8110 READ AD: IF AD<0 THEN 8190 LA 
•8120 READ B:IF B>=0 THEN POKE AD,B:AD=AD 

+1:G0T0 8120 BK 

•8130 GOTO 8110 FJ 

•8190 GOTOIOOO FC 

•8200 REM READ/WRITE ROUTINES BL 



BM 
NB 
CJ 
LE 
NP 
LI 

GE 

AP 

EI 
AG 
BI 
FO 
FO 
00 
PN 
BL 
PJ 
HC 
NL 
PA 
BA 
KF 
IP 
KN 
GN 
IC 
MD 
FC 
MO 
EI 
AD 
GA 
IM 
ML 



•8210 DATA 840:REM SETUP 10 

•8220 DATA 173, 60, 3: REM LDA 828 HL 

•8230 DATA 174,61,3:REM LDX 829 MJ 

•8240 DATA 133, 251: REM STA !251 GO 

•8250 DATA 134, 252: REM STX !252 HA 

•8260 DATA 169,0: REM LDA #0 IG 

•8270 DATA 141, 62, 3: REM STA 830 GE 

•8280 DATA 96,-1: REM RTS DD 

•8300 DATA 860: REM ADVANCE POINTER NC 

•8310 DATA 24: REM CLC JD 

•8320 DATA 165, 251: REM LDA !251 EE 

•8330 DATA 105, 2: REM ADC #2 HB 

•8340 DATA 133, 251: REM STA !251 GO 

•8350 DATA 165, 252: REM LDA !252 CK 

•8360 DATA 105,0: REM ADC #0 GN 

•8370 DATA 133, 252: REM STA !252 DM 

•8380 DATA 96,-1: REM RTS DD 

•8400 DATA 880: REM READ ROUTINE EI 

•8410 DATA 162, 2: REM LDX #2 KA 

•8420 DATA 32, 198, 255: REM JSR CHKIN MP 

•8430 DATA 32, 72, 3: REM JSR SETUP DB 

•8440 DATA 32, 207, 255: REM JSR CHRIN OH 

•8450 DATA 160,1: REM LDY #1 IH 

•8460 DATA 145,251:REM STA (251, Y BE 

•8470 DATA 32, 92, 3: REM JSR ADVPTR MM 

•8480 DATA 206, 62, 3: REM DEC 830 GM 

•8490 DATA 208,241 :REM BNE -15 AG 

•8500 DATA 32, 204, 255: REM JSR CLRCHN DI 

•8510 DATA 96,-1: REM RTS DD 

•8600 DATA 910: REM WRITE ROUTINE HF 

•8610 DATA 162, 2: REM LDX #2 KA 

•8620 DATA 32, 201, 255: REM JSR CHKOUT MB 

•8630 DATA 32, 72, 3: REM JSR SETUP DB 

•8640 DATA 160,1: REM LDY #1 IH 

•8650 DATA 177, 251: REM LDA (251,Y BG 

•8660 DATA 32, 210, 255: REM JSR CHROUT OK 

•8670 DATA 32, 92, 3: REM JSR ADVPTR MM 

•8680 DATA 206, 62, 3: REM DEC 830 GM 

•8690 DATA 208,241:REM BNE -15 AG 

•8700 DATA 32, 204, 255: REM JSR CLRCHN DI 

•8710 DATA 96,-1: REM RTS DD 

•8720 DATA -1 OE 

•9000 REM DISK CHECK DG 

•9020 INPUT#15,ER,ER$,ET,ES EC 

•9030 IF ER=0 THEN RETURN m 

•9050 PRINT "[CLEAR] [RVSON]";ER;ER$: PRINT 

"[RVSON]";ET;ES EF 

•9060 PRINT :PRINT"F2 TO QUIT":PRINT"ANY 

THER KEY TO CONT" HM 

•9070 GET I$:IF 1$="" THEN 9070 NM 

•9080 IF I$="[F2]" OR I$="[F1]" THEN 4000 GH 

•9090 RETURN IM 



VIC 20 BUG REPELLENT LINE CODES FOR DSKDU 



# 1 

# 2 

# 10 



AB 

PC 
DG 



# 12 

# 14 

# 16 



JE 
PN 
FJ 
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#18 :IM 

# 1000: OB 

# 1010 :AA 



# 1020 :ME 

# 1030 :CE 

# 1110:0F 



# 1120: NP 

# 1130:DG 

# 1160: BE 



# 2000 :BL 

# 2010 :DF 

# 2100 :LG 



# 2102: AN 

# 2104 :AB 

# 2110: KH 



# 2120:HN 

# 2130 :JJ 

# 2140: EC 



IMDnilTAMTI '-^"^''^ °'^ white background are Bug Repellent line codes. Do not enter them! Pages 



85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



# 2150:DE 


# 


2320 :PG 


# 2800 :CK 


# 2160 :JA 


# 


2330: CD 


# 2810: CA 


# 2170 :PF 


# 


2340 :0D 


# 2820: EP 


# 2180: FA 


# 


2350: IF 


# 2850: LJ 


# 2200: HO 


# 


2400 :0A 


# 2860 :K0 


# 2210:JA 


# 


2410 :CJ 


# 2870 :EP 


# 2220 :NC 


# 


2430 :AB 


# 3000 :FL 


# 2225:LL 


# 


2450:10 


# 3010 :NG 


# 2230 :JJ 


# 


2460 :BJ 


# 3020 :CJ 


# 2240: KG 


# 


2470:11 


# 3030 :BM 


# 2250 :CB 


# 


2480: DM 


# 3040 :NB 


# 2260 :0A 


# 


2490 :L0 


# 3050 :CJ 


# 2270: EK 


# 


2700 :NK 


# 3100 :LE 


# 2280 :NF 


# 


2710:HJ 


# 3110:NP 


# 2285 :KP 


# 


2720:EF 


# 31 20: LI 


# 2290 :GA 


# 


2750 :LM 


# 3130 :GE 


# 2300 :HL 


# 


2760 :FP 


# 3140: AP 


# 2310 :BJ 


# 


2770 :EP 


# 3150: EI 



# 4000: AG 


# 7140:MD 


# 8200 :BL 


# 8380 :DD 


# 8640 :IH 


# 4010 :BI 


# 7200 :FC 


# 8210:10 


# 8400: EI 


# 


8650 :BG 


# 4020 :F0 


# 7210:M0 


# 8220 :HL 


# 8410:KA 


# 8660: OK 


# 4030 :F0 


# 7220: EI 


# 8230 :MJ 


# 8420: MP 


# 


8670: MM 


# 7000:00 


# 8000 :BI 


# 8240: GO 


# 8430 :DB 


# 


8680 :GM 


# 7010:PN 


# 8001: AD 


# 8250: HA 


# 8440: OH 


# 


8690: AG 


# 7020 :BL 


# 8020 :GA 


# 8260 :IG 


# 8450 :IH 


# 


8700 :DI 


# 7030 :PJ 


# 8030: IM 


# 8270 :GE 


# 8460: BE 


# 


8710 :DD 


# 7050 :HC 


# 8040: ML 


# 8280 :DD 


# 8470: MM 


# 


8720:0E 


# 7060 :NL 


# 8050 :FP 


# 8300 :NC 


# 8480 :GM 


# 


9000 :DG 


# 7065: PA 


# 8060 :BK 


# 8310:JD 


# 8490: AG 


# 


9020: EC 


# 7070 :BA 


# 8070 :KK 


# 8320 :EE 


# 8500 :DI 


# 


9030: EM 


# 7080 :KF 


# 8100: PC 


# 8330 :HB 


# 8510 :DD 


# 


9050 :EF 


# 7090: IP 


# 8110:LA 


# 8340: GO 


# 8600 :HF 


# 


9060 :HM 


# 7100 :KN 


# 8120: BK 


# 8350 :CK 


# 8610: KA 


# 


9070 :NM 


# 7120 :GN 


# 8130: FJ 


# 8360: GN 


# 8620: MB 


# 


9080 :GH 


# 7130: IC 


# 8190: FC 


# 8370: DM 


# 8630 :DB 


# 


9090 :IM 


1 1 



TUB HAIRPWA^E DlMTl^l^ypT WEO^E 

FROM PAGE 52 VIC 20 VERSION 

•10 REM*** VIC 20 *** HL 
•12 REM***SAMPLE INTERRUPT ROUTINE*** LD 
•15 REM*** BASIC LOADER *** BJ 
■20 RFJ^***L0ADS INTO CASSETTE BUFF*** IG 
•25 REM*** 'SYS828' TO ACTIVATE *** HK 
•30 REM*** 'SYS854' TO DEACTIVATE *** FH 
•40 F0RX=828T0866 KF 

•50 READA:POKEX,A:NEXT:END OH 

•100 DATA120, 169, 73, 141,20,3,169,3,141,21 

,3,88,96,165,197,141,255,30,169,4 IP 
•200 DATA141, 255, 150, 76, 191, 234, 120, 169,1 

91,141,20,3,169,234,141,21,3,88,96 AO 

C-64 VERSION 

•10 REM*** C64 *** CA 
•12 REM***SAMPLE INTERRUPT ROUTINE*** GI 
•15 REM*** BASIC LOADER *** KM 
•20 REM***L0ADS INTO CASSETTE BUFF*** DM 
•25 REM*** 'SYS828' TO ACTIVATE *** CE 
•30 REM*** 'SYS854' TO DEACTIVATE *** BN 
•40 F0RX=828T0866 KF 

•50 READA:POKEX,A:NEXT:END OH 

•100 DATA120,169,73,141,20,3,169,3,141,21 
,3,88,96,165,197,141,255,4,169,4 BE 

•200 DATA141, 255, 216, 76, 49, 234, 120, 169, 49 
,141,20,3,169,234,141,21,3,88,96 AM 



'30 POKE51,0:POKE52,15:P0KE251,0:POKE252, 



FROM PAGE 29 

• 5 P0KE53280 , 6 : P0KE5328 1,0: P0KE646 , 1 

•10 PRINTCHR$(147) 

• 20 F0RX=3584T03660 : READZ : POKEX , Z : NEXTX 



CM 
FG 
AF 



PH 
JG 
KO 
MC 
BC 
JJ 
EA 
EH 
IK 
OL 
BA 
OA 
LE 
JA 
HG 



15:P0KE828,0 

40 PRINT"SELECT OPTION" 

50 PRINT :PRINT"1, COPY SEQ FILE" 

60 PRINT :PRINT"2. COPY PGM FILE" 

70 PRINT :PRINT"3. END" 

80 PRINT 

90 GETR$:IFR$=""THEN90 

100 A=VAL(R$) :IFA<10RA>3THEN90 

110 0NAG0T0120,140,290 

120 INPUT"SEQ FILENAME" ;AN$ 

130 F$="S":G0T0160 

140 INPUT"PGM FILENAME" ;AN$ 

150 F$="P" 

160 0PEN3,8,3,AN$ 

170 SYS3584:CL0SE3 

180 IFPEEK(252)=159THENPRINT"FILE TOO LO 

NG":STOP NK 

190 P0KE253,PEEK(828):P0KE254,PEEK(252): 

POKE251,0:POKE252,15:P0KE828,O 10 

200 PRINT"SWAP DISKS IF PUTTING COPY ON 

A NEW DISK": PRINT NB 

210 INPUT"NAME OF NEW FILE";AN$ LB 

220 0PEN3 ,8,3, AN$+" , "+F$+" , W" : SYS3618 : CL 

0SE3 CN 

230 PRINT"- COPY COMPLETE -":GCyr030 CB 

240 DATA 162,3,32,198,255,32,228,255,172 

,60,3,145,251,200,140,60,3,192 DA 

250 DATA 0,208,8,230,252,166,252,224,159 

,240,4,165,144,240,228,32,204,255 LI 

260 DATA 96,162,3,32,201,255,172,60,3,17 

7,251,196,253,208,6,166,252 MD 

270 DATA 228,254,240,16,200,140,60,3,32, 

210,255,192,0,208,230,230,252,76 CM 

280 DATA 42,14,32,204,255,96 HL 

290 END IC 

AHOY! 107 



I M PflRTA MTI '-^"^''^ °'^ white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
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COMMODORE FONT EDITOR 

FROM PAGE 82 

10 REM COMMODORE FONT EDITOR 

20 REM PROGRAMMED BY STEPHEN REED 

30 REM 

40 REM IF YOU DON'T WANT TO TYPE IN 

50 REM THIS PROGRAM, COPIES ARE 

60 REM AVAILABLE ON DISK WITH SEVERAL 

70 REM CHARACTER FONTS. SEND $12.95 TO 

80 REM 

FONT EDITOR 

2404 S. MYRTLE AVE. 

SANFORD, FL 32707 



FH 
EC 
JD 
JO 
NG 
KH 
FK 
JD 
LG 
LJ 
IE 
JD 
JD 
CE 
DE 
CE 
JD 
BP 
PC 
AA 
BJ 



90 REM 

100 REM 

110 REM 

120 REM 

130 REM 

140 REM *************************** 

150 RFJ^ * INITIALIZE PROGRAM DATA * 

160 REM *************************** 

170 REM 

180 POKE53281,l:POKE53280,7 

190 P0KE52,48:P0KE56,48:CLR:DIMR$(7) 

200 F0RA=rjT07:READR(A):NEXTA 

210 DATA 128,64,32,16.8,4,2,1 

220 PRINT" [ CLEAR ]"CHR$( 142 )CHR$( 8) "[BLUE 

][RVS0N]"; CM 

230 CC=1:0C=1 CI 

240 PRINT"[9" "JCOMMODORE FONT EDIT0R[9" 

"][SS]"; EC 

250 PRINT" [ BLACK ][RVSON][ 40" [c T]"]" BM 
260 GOSUB510:REM GET E WINDOW AG 

270 GOSUB740:REM MENU ON SCREEN HD 
280 G0SUB920:REM DISPLAY CHARACTERS CC 
290 GOSUB1070:REM UPDATE SCRN FOR CC GK 
300 IFPEEK(12288)=60THEN430 AG 

310 REM JD 

320 REM *************************** CE 

330 REM * DOWNLOAD ROM CHARACTERS * FA 
340 REM *************************** CE 

350 REM JD 
360 PRINT" [HOME] [16" [DOWN]" ]";0$;"[ BLUE] 

PLEASE WAIT 30 SECONDS" HM 

370 P0KE56334, PEEK ( 56334) AND254 DN 

380 P0KE1,PEEK(1)AND251 IM 

390 FORA=0TO2047 CP 

400 P0KEA+12288,PEEK(A+53248):NEXT JD 

410 P0KE1,PEEK(1)0R4 BE 

420 P0KE56334,PEEK(56334)0R1:G0SUB1070 IB 

430 G0SUB740 CL 

440 P0KE53272,(PEEK( 53272) AND240)+12 LI 

450 GOSUB1390:IFA$<"0"ORA$>"9"THEN450 DJ 

460 A=VAL(A$):IFA==0THENA=10 IB 
470 0NAG0SUB1700 , 1890 , 2070 , 2430 , 2620 . 275 

0,2920,3010,3170,3240 LN 

480 GOTO 450 CN 

490 REM JD 



500 REM ****************************** HYi 
510 REM * PUT EDIT WINDOW ON SCREEN * DC 
520 REM ****************************** NK 

530 REM JD 

540 PRINT"[H0ME][3"[D0WN]"] [ BLACK ][RVSO 



RVSON] [PURPLE] [s M][8" "][ 



N]"; 

550 PRINT" [3" "] 12345678 [3" "]' 

560 PRINT" [RVSON] [PURPLE] [s M] [10" "][ 

s N] [BLACK] 

570 PRINT" 

s N] [BLACK 

580 PRINT" 

"] [RVSON] 
590 PRINT" 

"] [RVSON] 
600 PRINT" 

"] [RVSON] 
610 PRINT" 

"] [RVSON] 
620 PRINT" 

"] [RVSON] 
630 PRINT" 

"] [RVSON] 
640 PRINT" 

"] [RVSON] 
650 PRINT" 

"] [RVSON] 
660 PRINT" 
s M] [BLACK 
670 PRINT" 
s M] [BLACK] 



RVSON] 1 [PURPLE] 

[BLACK]!" 

RVSON ]2[PURPLE] 

[BLACK] 2" 

RVSON ]3[PURPLE] 

[ BLACK ]3" 

RVS0N]4[PURPLE] 

[BLACK ]4" 

RVS0N]5[ PURPLE] 

[BLACK] 5" 

RVS0N]6[PURPLE] 

[ BLACK ]6" 

RVSON ]7[ PURPLE] 

[BLACK]?" 

RVSON ]8[ PURPLE] 

[BLACK] 8" 

RVSON] [PURPLE] [s N][8" "][ 

" EM 

RVSON] [PURPLE] [s N][10" "][ 



[RVS0FF][8" 
[RVS0FF][8" 
[RVS0FF][8" 
[RVS0FF][8" 
[RVS0FF][8" 
[RVS0FF][8" 
[RVS0FF][8" 
[RVS0FF][8" 



BJ 
CJ 

GO 

EM 

ID 

KH 

OH 

PL 

PD 

NH 

OH 

OL 



HC 

680 PRINT" [RVS0N][3" "]12345678[3" "][R 

VSOFF]": RETURN OF 

690 REM JD 

700 REM *************************** CE 

710 REM * PUT MAIN MENU ON SCREEM * HG 

720 REIM *************************** CE 

730 REM JD 
740 PRINT"[HOME][3"[DOWN]"][22"[RIGHT]"] 

[RED] [RVSON] [3"*"] MENU [3"*"] [BLACK]" DN 

750 0$="[ 17" [RIGHT]"]" GJ 

760 PRINT: PRINT0$;"1] SAVE FONT" MB 

770 PRINT0$;"2] LOAD FONT" LB 

780 PRINT0$;"3] EDIT CHARACTER" DB 

790 PRINT0$;"4] MOVE CHARACTERS" GK 

800 PRINT0$;"5] SWAP CHARACTERS" LF 

810 PRINT0$;"6] INVERSE CHARACTERS" JN 

820 PRINT0$;"7] GET ROM CHARACTERS" EL 

830 PRINT0$;"8] DISPLAY DATA VALUES" EE 

840 PRINT0$;"9] DECREMENT DISPLAY" CE 

850 PRINTO$;"0] INCREMENT DISPLAY" FJ 

860 PRINT:PRINT0$;"[GREEN][3" "] SELECT 

PTI0N?[5" "]": RETURN KM 

870 REM JD 

880 REM ****************************** HY. 

890 REM * PUT CHARACTER DATA ON LINE * BC 
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•900 REM ****************************** Ijjj 
•910 REM JD 

•920 PRINT"[H0ME][18"[D0WN]"]"; NP 

•930 PRINT" [24" "]"; BJ 

•940 PRINT" [ BLACK ]@ABCDEFGHIJKLMNO"; PC 
• 950 PRINT"PQRSTUVWXYZ[ [ EP ] ] [ UPARROW ] [ BAG 
KARROW] I"+CHR$(34)+"#$%&'()*+,-./012345 
67"; KM 

•960 PRINT"89:;<=>?[s *][s A][s B]ts C][s 
D][s E][s F][s G][s H][s I][s J][s K][s 
L][s M][s N][s 0][s P][s Q][s R]is S][s 
T][s U][s V][s W][s X][s Y][s Z][s +][c 
-][s -][PI][c *]" HB 

•970 F0RA=94T0255 DD 

•980 P0KElO24+18*4O+24+A,A NP 

•990 P0KE55296+18*4r>f24+A,0 BL 

•1000 NEXT lA 

•1010 PRINTCHR$( 146): RETURN CC 

•1020 REM JD 

■1030 REM ****************************** j*jj( 

•1040 REM * PUT CURRENT DATA ON SCREEN * EG 
•1050 REM ****************************** tJK 
•1060 REM JD 

•1070 POKE55296+18*40+OC+24,0:OC=CC HH 
•1080 P0KE55296+18*40+CC+24,2 HC 

•1090 PRINT"[H0ME][15"[DOWN]"][5"[RIGHT]" 
][ PURPLE ][RVSON]CODE ";RIGHT$(STR$(CC) ,L 
EN(STR$(CC))-1); AD 

•1100 IFCC<10THENPRINT" " OE 

•1110 IFCC<100THENPRINT" " BH 

•1120 PRINT" [HOME] [6" [DOWN]" ][RVSOFF]";:F 
ORA=r/r07:P$="" FL 

•1130 B=PEEK(12288+A+(CC*8)) CJ 

•1140 IFB=>128THENZP=1:B=B-128 PC 

•1150 GOSUB1320 FH 

•1160 IFB=>64THENZP=l:B=B-64 IH 

•1170 GOSUB1320 FH 

•1180 IFB=>32THENZP=l:B=B-32 DJ 

■1190 GOSUB1320 FH 

•1200 IFB=>16THENZP=1:B=B-16 DN 

•1210 GOSUB1320 FH 

•1220 IFB=>8THENZP=1 : B=B-8 AE 

•1230 GOSUB1320 FH 

•1240 IFB=>4THENZP=l:B=B-4 NE 

•1250 GOSUB1320 FH 

•1260 IFB=>2THENZP=l:B=B-2 PA 

•1270 GOSUB1320 FH 

•1280 IFB=1THENZP=1 OK 

•1290 GOSUB1320 FH 

•1300 PRINT"[BLACK][4"[RIGHT]"]";P$:NEXTA HL 
•1310 RETURN IM 

•1320 IFZP=lTHENP$=P$+"[s Q ]": ZP=0 : RETURN MK 

HC 
JD 
CE 
KP 
CE 
JD 



■1330 P$=P$+" ": RETURN 

■1340 REM 

'1350 REM *************************** 

■1360 REM * SCAN KEYBOARD FOR INPUT * 
■1370 REM *************************** 

■1380 REM 



1390 GETA$:IFA$=""THEN1390 KB 

1400 RETURN IM 

1410 REM JD 

1420 REM *************************** CE 

1430 REM * ERASE MENU AREA * ME 

1440 REM ***♦*****#**#************** CE 

1450 REM JD 

1460 PRINT"[ HOME] [3"[ DOWN]"]"; GL 

1470 F0RA=r/r013 MN 

1480 PRINTO$;"[22" "]" EG 

1490 NEXTA: RETURN JA 

1500 REM JD 

1510 REM *************************** CE 

1520 REM * FORMATTED NUMERIC INPUT * FJ 

1530 REM *************************** CE 

1540 REM JD 
1550 PRINT"[3"[c D]"][3"[LEFT]"]"; :Z=0:B 

$="" FA 

1560 FORA=1T03:GOSUB1600:IFZ=1THEN1580 HH 

1570 NEXT lA 
1580 W=VAL(B$):IFW>255THENPRINT"[3"[LEFT 

]"]";:G0TO1550 PF 

1590 RETURN IM 

1600 G0SUB1390 FI 

1610 IFA$=CHR$(13)THENZ=1: RETURN NH 

1620 IFA$<"0"0RA$>"9"THEN1600 ON 

1630 B$=B$+A$ IG 

1640 PRINTA$;: RETURN BH 

1650 REM JD 

1660 REM ************************** OG 

1670 REM * SAVE FONT DATA TO DISK * FH 

1680 REM ************************** OG 

1690 REM JD 

1700 G0SUB1430 FP 
1710 PRINT"[H0ME][4"[D0VN]"]"0$" [GREEN 

][3"."]SAVE DATA [3"."] [BLACK]" NC 
1720 PRINT: PRINT"[10"[ DOWN ]"]"0$"FILESPE 

C"; OM 

1730 INPUTN$:IFLEN(N$)>8THEN1700 JO 

1740 OPEN 1,8,12,N$+",P,W" FA 

1750 PRINT#1,CHR$(0)+CHR$(48); NA 

1760 F0RI=0T0255 AB 
1770 PRINT"[H0ME][8"[D0WN]"]"0$"[8"[RIGH 

T]"]";I KI 

1780 B$="" FO 

1790 F0RJ=0T07 IC 
1800 B$=B$+CHR$(PEEK(12288+J+I*8)):NEXT MF 

1810 PRINT#1,B$; KG 

1820 NEXTI:CL0SE1:G0SUB1430 GG 

1830 G0SUB740: RETURN PK 

1840 REM JD 

1850 REM **************************** CH 

1860 REM * LOAD FONT DATA FROM DISK * EE 

1870 REM **************************** Qjj 

1880 REM JD 

1890 G0SUB1430 FP 
1900 PRINT" [HOME] [4"[D0WN]"]"0$" [GREEN 

][3"."]L0AD DATA[3"."J[BLACK]" DF 
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• 1910 PRINT : PRINT" [ 10" [ DOWN ] " ] "0$"FILESPE 

C"; CM 

•1920 INPUTN$:IFLEN(N$)>8THEN1700 JO 

•1930 OPEN 1,8,12,N$+",P,R" CN 

•1940 GET#1,A$,A$ AL 

•1950 F0RI=f/r0255 AB 
•1960 PRINT"[H0ME][8"[D0WN]"]"0$"[8"[RIGH 

T]"]";I KI 

•1970 F0RJ=fjT07 IC 

•1980 GET#1,A$:A=0:IFA$<>""THENA=ASC(A$) KJ 

•1990 P0KE12288+J+I+8,A:NEXTJ BO 

•2000 NEXTI:CLOSE1:GOSUB1430 GG 

•2010 G0SUB740: RETURN PK 

•2020 REM JD 

•2030 REM ************************** QQ 

•2040 REM * EDIT CHARACTER ROUTINE * PL 
•2050 REM ************************** OG 
•2060 REM JD 

•2070 GOSUB1430 FP 

•2080 PRINT"[HOME][ 4" [ DOWN ]"]"0$" [PURPLE] 

EDIT CHARACTER [BLACK]" OM 

•2090 PRINT :PRINTO$ "CHARACTER # ";:G0SUB1 

550 MM 

•2100 CC=W:G0SUB1070 CM 

•2110 GOSUB1430:PRINT"[HOME][4"[DOWN]"]"0 

$; "[PURPLE] EDIT CHARACTER [BLACK]" NN 
•2120 PRINT:PRINT0$"[E][6" "] ERASE BUFFER 

" GO 

FN 



SET PIXEL" 

RESET PIXEL": PRINT 



•2130 PRINTO$" [*]/[.] 
•2140 PRINTO$"[ SPACE] 

0$"[ RETURN] FINISHED" KE 

•2150 PRINT: PRINT :PRINTO$" CURSOR KEYS MO 

VE" BK 

•2160 PRINTO$" EDITING CURSOR." NI 
•2170 X=4:Y=4:G-1:G0SUB2350 KC 

• 2 180 GOSUB1390 : IFA$="E"THENG0SUB2410 : GOT 

02180 GE 

•2190 IFA$=" "THENG=3:GOSUB2350:GOT02180 OA 

• 2200 IFA$="*"ORA$=" . "THENG=2 : GOSUB2350 : G 
0T02180 CE 

•2210 IFA$=CHR$(13)THEN2280 IP 

• 2220 IFA$<>" [ UP ] "ANDA$<>" [ DOWN ] " ANDA$<>" 

[ LEFT ] "ANDA$<>" [RIGHT ] "THEN2 180 PI 

• 2230 IFA$=" [ UP ] "ANDY>1THENG=0: G0SUB2400 : 
Y=Y-1:GOSUB2350:GOT02180 DM 

• 2240 IFA$=" [ DOWN ] "ANDY<8THENG=0 : G0SUB240 
0:Y=Y+1:GOSUB2350:GOT02180 GF 

• 2250 IFA$=" [ RIGHT ] "ANDX<8THENG=0 : G0SUB24 
00 : X=X+1 : G0SUB2350 : G0T02 180 BM 

• 2260 IFA$=" [ LEFT ] " ANDX>1THENG=0: GOSUB240 
0:X=X-1;G0SUB2350:G0T02180 OH 

•2270 GOTO 2180 FA 

•2280 F0RA=0T07 IP 

•2290 GOSUB2320:REM GET BYTE IN B OA 
•2300 P0KE12288+(CC*8)+A,B:NEXTA II 
•2310 GOSUB1070:GOSUB1430:GOSUB740:RETURN PO 
•2320 B=0:F0RR=r/r07 AA 

•2330 U=PEEK(1268+(A*40)+R):IFU=870RU=81T 

no AHOY! 



HENB=B+R(R) GG 

2340 NEXTR: RETURN KB 

2350 X$=" [8" [RIGHT ]"]":Y$="[8" [DOWN]"]": 
PRINT"iH0ME][5"[DOWN]"][3"[RIGHT]"]";LEF 
T$(X$,X);LEFT$CY$,Y); U 

2360 IFG=2THENPRINT" [BLACK] [s Q]":G=1:G0 
SUB2350: RETURN KC 

2370 IFG=3THENPRINT"[ BLACK] ":G=1:G0SUB2 
350: RETURN BB 

2380 K=PEEK(1227+X+Y*40) :IFK=81THENPRINT 
"[RED][s W]":RETURN GG 

2390 PRINT" [RED]+": RETURN 01 

2400 P0KE1227+X+Y*40,K:P0KE55499+X+Y*40, 
0: RETURN LG 

2410 PRINT" [ HOME] [ 6" [ DOWN ]"]";: F0RA=1T08 
:PRINT"[4"[RIGHT]"][8" "]" AM 

2420 NEXTA:G=1:K=32:G0SUB2350: RETURN DH 
2430 GOSUB1430 FP 

2440 PRINT" [ HOME ] [ 4" [ DOWN ] " ] "0$"STARTING 
CHAR "; NA 

2450 GOSUB1550:M1=W BJ 

2460 PRINT: PRINTO$"ENDING CHAR ";:G0SUB1 
550 EH 

2470 M2=W IJ 

2480 PRINT :PRINTO$ "MOVE TO CHAR ";:GOSUB 
1550 MO 

2490 IFM1>M2THEN2430 LM 

2500 IFW<=M2 ANDW=>M1 THEN 2430 HP 
2510 PRINT:PRINTO$;"[BLUE] [3"."]M0VING 
[3"."] [BLACK]" FP 

2520 F0RA=0T0(M2-M1) EM 

2530 F0RB=0T07 HK 

2540 P0KE12288+B+(A+W)*8,PEEK(12288+B+(A 
+M1)*8) DE 

2550 NEXTB.A DI 

2560 G0SUB1430:G0SUB740: RETURN IK 
2570 REM JD 

2580 REM **************************** GH 

2590 REM * SWAP CHARACTER DATA SUBR * DK 
2600 REM **************************** Qn 

2610 REM JD 

2620 G0SUB1430:PRINT"[BLACK][H0ME][4"[D0 
WN]"]"0$"STARTING CHAR "; :G0SUB1550:SC=W HF 
2630 PRINT: PRINT0$"ENDING CHAR ";:G0SUB1 
550:EC=W AL 

2640 PRINT: PRINT0$ "SWAP WITH ";:GOSUB155 
BA 

2650 F0RA=OT0(EC-SC):F0RB=0T07 CL 
2660 T=PEEK(12288+B+(A+W)*8) BM 

2670 P0KE12288+B+(A+W)*8,PEEK(12288+B+(A 
+SC)*8) MA 

2680 P0KE12288+B+(A+SC)*8,T:NEXTB,A JK 
2690 GOSUB1430:GOSUB740:GOSUB1070: RETURN EI 
2700 REM JD 

2710 REM ************************** OQ 
2720 REM * REVERSE CHARACTER DATA * KH 
2730 REM ************************** OQ 
2740 REM JD 
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2750 G0SUB1430 FP 

2760 PRINr[H0ME][4"[D0WN]"]"; :IFYT=OTHE 
NPRINTO$"[ BLACK] REVERSE DATA" BA 

2770 PRINT: PRINTO$"STARTING CHAR ";:GOSU 
B1550 AF 

2780 SC=W KE 

2790 PRINT: PRINT :PRINTO$"ENDING CHAR ";: 
GOSUB1550 LF 

2800 IFWOCTHEN2750 LK 

2810 IFYT=1THENRETURN FP 

2820 PRINT: PRINT :PRINTO$" [BLUE][3"."]R 
EVERSING[3"."][BLACK]" OM 

2830 F0RA=0T0CW-SC):F0RB=0T07 OB 

2840 P0KE12288+B+(A+SC)*8,255-PEEK( 12288 
+B+(A+SC)*8):NEXTB,A DG 

2850 GOSUB1430:GOSUB740 LH 

2860 GOSUB1070: RETURN CO 

2870 REM JD 

2880 REM ************************** QQ 
2890 REM * GET ROM CHARACTER DATA * PC 
2900 REM ************************** OG 
2910 REM JD 

2920 yT=l:PRINT"[BLACK]":GOSUB2750:YT=0 IG 
2930 PRINT :PRINTO$"[ BLUE] [3"."] LOADING F 
ROM R0M[3"."] [BLACK]" DK 

2940 P0KE56334,PEEK(56334)AND254 DN 
2950 P0KE1,PEEK(1)AND251 IM 

2960 F0RA=SC*8T0SC*8+(W-SC)*8+7 IL 
2970 P0KEA+12288,PEEK(A+53248):NEXT JD 
2980 P0KE1,PEEK(1)0R4 BE 

2990 P0KE56334,PEEK(56334)0R1 PD 

3000 G0SUB1430:G0SUB740:G0SUB1070:RETURN EI 
3010 GOSUB1430 FP 

3020 PRINT"[H0ME][4"[D0WN]"]"0$; "[BLACK] 
CHARACTER NUMBER "; IL 

3030 GOSUB1550 GG 

3040 PRINT: PRINT :TP=CC:CC=W:G0SUB1070 JP 
3050 PRINT"[ HOME] [5"[ DOWN ]"]":F0RA=0T07 PL 
3060 PRINT0$;PEEK(12288+A+(W*8)) CP 
3070 NEXTA MF 

3080 PRINT:PRINT0$;"[4" "]SPACE TO RETUR 
N" HK 

3090 GOSUB 1 390 :CC=TP:GOSUB 1070 EL 
3100 GOSUB1430:GOSUB740 LH 

3110 GOSUB 1070: RETURN CO 

3120 REM JD 

3130 REM *************************** eg 

3140 REM * DECREMENT CHARACTER — > * JG 

3150 REM *************************** Qg 

3160 REM JD 

3170 CC=CC-1;IFCC<0THENCC=255 NC 

3180 GOSUB1070: RETURN CO 

3190 REM JD 

3200 REM *************************** eg 

3210 REM * INCREMENT CHARACTER — > * IK 
3220 REM *************************** QE 



•3230 REM JD 

•3240 CC=CC+1:IFCC>255THENCC=1 BG 

•3250 GOTO 3180 FB 

TILE TIME 

FROM PAGE 81 

1 REM THE TILE GAME MK 

2 REM (C) MURDOCK & BLACKBURN '84 FG 

3 REM 10/15/1984 HL 

4 REM JD 
100 F0RX=1T06:READCH:C0$(X)=CHR$(CH) :NEX 

T MG 

110 DATA 28,158,156,30,150,5 JE 

120 B1$=CHR$(154):B2$=CHR$(31):B3$=CHR$( 
152);C1$=B1$:C2$=CHR$(144) LB 

130 SC$=CHR$(147):HM$=CHR$(19) KI 
135 PRINT SC$;C0$(6) OE 

140 P0KE53280 , 2 : P0KE53281 , 2 : PRINTSPC( 249 
)"HOLD ON, JUST A SECOND" KE 

150 DO$=HM$:FORX=1T024:DO$=DO$+CHR$(17): 
NEXT GH 

160 U3$="":F0RX=lTO3:U3$=U3$+CHR$(145):N 

HD 

R3$="" : F0RX-1T03 : R3$=R3$+CHR$( 29) : NE 

NF 

L5$="":F0RX=1T05:L5$=L5$+CHR$(157):N 

GB 

SP$="":F0RX=1T039:SP$=SP$+" ":NEXT BP 
2V) SZ$=CHR$(17)+CHR$(29)+CHR$(110)+CHR$ 
(163)+CHR$(109)+CHR$(157)+CHR$(157) OC 
210 SZ$=SZ$+CHR$(157)+CHR$(17)+CHR$(125) LM 
220 T$=CHR$(111)+CHR$(183)+CHR$(183)+CHR 
$(183)+CHR$(112)+L5$+CHR$(17) OJ 

230 T$=T$+CHR$(165)+R3$+CHR$(167)+L5$+CH 
R$(17) FC 

240 T$=T$+CHR$(165)+R3$+CHR$(167)+L5$+CH 
R$(17) FC 

250 T$=T$+CHR$(108)+CHR$(175)+CHR$(175)+ 
CHR$(175)+CHR$(186)+L5$+U3$ HB 

260 BS$=B2$ : F0RX=1T05 : BS$=BS$+CHR$( 166) : 
NEXT EE 

270 BS$=BS$+L5$+CHR$(17):BT$="":F0R X=1T 
04:BT$=BT$+BS$:NEXT:BS$=BT$+B1$ NG 
280 DIMCH$(24):F0R X=1T024:READCH$:CH$(X 
)=CH$:NEXT DP 

290 DATA A,B,C,D,E HI 

295 DATA F,G,H,I,J KD 

300 DATA K,L,M,N,0 NC 

305 DATA P,Q,R,S,T OF 

310 DATA U,V,W,X GE 

320 IF PEEK(49475)<>234 OR PEEK(49806)<> 
24THEN GOSUB9010 JE 

330 PX=0:P0KE53280,PX:POKE53281,PX BC 
340 PRINTSC$:K$="" 01 

350 PRINTDO$;SP$;B1$;:GOSUB8010:GOT0360 00 

AHOY! Ill 



EXT 

170 

XT 

180 

EXT 

190 



•360 PRINTHM$; JH 

•370 ROW=5:COL=1:BR=5:BC=5:MV=0:CU$=T$ AO 
•380 PRINT D0$;SPC(7);C0$(2); "JOYSTICK OR 

KEYBOARD (J/K)"C2$; DD 

•390 GETKK$:IFKK$=""THEN390 AO 

•400 IFKK$="J" THENA20 CD 

•410 IFKK$<>"K" THEN390 IF 

• 420 PRINTIX)$ ; SP$ ; : GOSUB3040 DA 

•430 REM *** MIX Y/^f PRINT *** MK 
•440 PRINTC0$(4);D0$;LEFT$(SP$,15)j"MIX 

(Y/N)"; HJ 

•450 GETA$:IFA$=""THEN450 HE 
•460 IFA$= "Y"THEN PRINTDO$;SP$; :GOSUB304 

0:GOSUB4010:MV=0:PRINTDO$;SP$; :G0T0490 JP 

•470 IFA$= "N"THEN PRINTD0$ ; SP$ ; : G0T0490 KA 

•480 GOTO450 CN 

•490 CU$=T$:G0SUB3040:IFKK$="K" THEN7000 OA 

•500 G0T02010 FG 

•1000 REM *** SCROLL ROUTINE *** JF 

•1010 MV=MV+l:PRINTD0$B2$"M0VE"Bl$rMV; JP 

•1020 ON D G0T01030, 1050, 1060, 1080 OG 

•1030 ML=49661:R=5:VU=0:C0L=C0L-HU OG 

•1040 GOT01090:REM *LEFT HG 

•1050 ML=49735:R=5:VU=0:G0T01090tREM *RT JM 

•1060 ML=49416tR=4:HU=0:R0W=R0W-VU GH 

•1070 GOT01090:REM *UP AP 

•1080 ML=49483:R=4:HU=0:G0T01090:REM *DN KP 

•1090 L=(C0L-l)+5+8:T=(R0W-l)*4+2 DO 

•1100 H=(HU+1)*5:V=(VU+1)*4 LF 
•1110 P0KE251,L:P0KE252,T:P0KE253,H-1:P0K 

E254,V-1 HF 

•1120 GOSUB6510 GD 

•1130 FOR X=1T0R LC 

•1140 P0KE254,V-1:P0KE2,1 NE 

•1150 SYS ML DM 

•1160 NEXT lA 

•1170 POKE S+4,16 FG 

•1180 RETURN IM 

•1500 GET K$:IF K$=s" "THEN 1500 II 

•1510 RETURN IM 

•2000 REM *** READ JOY STICK *** BO 

•2010 JV=PEEK( 56320) GA 

•2020 GETK$:IFK$=CHR$(147)THEN350 JP 
•2030 FR=JVAND16:IF FR016THEN GOSUB5010: 

GOT02010 NB 

•2040 JV=15-(JVAND15) GH 

•2050 IF JV=0 THEN GOSUB2110:G0T02010 KN 
•2060 IF JV=1 AND R0W>1 THEN R0W=R0W-1:G0 

SUB3010:G0T02010 OP 
•2070 IF JV=2 AND R0W<5 THEN R0W=R0W+1:G0 

SUB3010:GOT02010 EJ 
•2080 IF JV=8 AND C0L<5 THEN C0L=C0U1:G0 

SUB3010:G0T02010 NH 
•2090 IF JV=4 AND C0L>1 THEN C0UC0L-1:G0 

SUB3010:GOT02010 LI 

•2100 G0T02010:REM * INVALID DIRECTION * CP 

•2110 PRINTC1$;T$; CO 

•2120 PRINTC2$;T$; DL 
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•2130 RETURN IM 

'3000 REM ******* SET CURSOR ******* LE 

•3010 IF FL THEN CU$=BS$ PO 
•3020 PRINTC1$;CU$;G2$; ^^EJ 
•3030 CU$=T$ ^iiPpA 

•3040 R=(R0W-l)*4+2:C=(C0L-l)*5+8 MP 

•3050 P0KE251,R:P0KE252,C JI 

•3060 SYS 49806 KL 

•3070 PRINTCU$; 10 
•3080 IF R0W=BR AND C0L=BC THEN FL=1:G0T0 

3100 BA 

•3090 FL=0 HJ 

•3100 RETURN IM 

•4000 REM ******* RANDOM MIX ******* JJ 
•4010 A=RND(RND(0)):PRINTLEFT$(D0$,5);B2$ 

; "MIXING"B1 $ ; : GOSUB3040 MH 

•4020 FOR MX=1 TO 20 CA 

•4030 GOSUB4180 GC 

• 4040 IFA2=1THENR0W=BR : C0L=BC-A : GOT04060 HJ 

•4050 R0W=BR:C0L=BC+A HN 

•4060 IF C0L<1 OR C0L>5 THEN4030 CL 

•4070 G0SUB3010:G0SUB5010 AH 

•4080 GETK$:IFK$<>"" THEN4160 FN 

•4090 GOSUB4180 GC 

•4100IFA2=1THENC0L=BC:R0W=BR-A: G0T04 120 A 

•4110 C0L=BC:R0W=BR+A KH 

•4120 IF R0W<1 OR R0W>5 THEN4090 IB 

•4130 GOSUB3010:GOSUB5010 AH 

•4140 GETK$:IFK$<>"" THEN4160 FN 

•4150 NEXT I A 

•4160 PRINTLEFT$(D0$,5);LEFT$(SP$,6);:G0S 

UB3040 FO 

•4170 RETURN IM 

•4180 A=INT(RND(1)*4)+1 AP 

•4190 A2=INT(RND(1)*2) EB 

•4200 RETURN IM 

•5000 REM *** PREPARE TO SCROLL *** AE 

•5010 IF COLOBC THEN5060 LO 

•5020 IF BR=ROW THEN RETURN BI 

•5030 VU=ABS(R0W-BR):D=4:TR=R0W+1 IK 

•5040 IF BR<R0W THEN D=3:TR=R0W-1 BD 

• 5050 BR=ROW : GOSUBIOIO : ROW=TR : G0SUB3040 : R 

ETURN AK 

•5060 IF ROWOBR THEN GOSUB6010: RETURN FF 

•5070 HU=ABS(C0L-BC):D=2:TC=C0L+1 CE 

•5080 IF BC<C0L THEN D=1:TC=C0L-1 OD 

• 5090 BC=COL : GOSUBIOIO : COL=TC : G0SUB3040; R 

ETURN KI 

•5100 IF COLOBC THEN RETURN HF 

•6000 REM ******* BUZZER ******* nd 

• 6010 F0RA=1T08 : P0KE54296 , 15 : F0RT=1T03 : NE 

XT : P0KE54296 , : F0RT=1T03 : NEXT : NEXT 

•6020 RETURN 

•6500 REM *** PONG SUBROUTINE *** 
•6510 3=54272 
•6520 POKE S+1,20 
•6530 POKE S+5,9 
•6540 POKE S+6,9 



LF 





IM 

ML 


^ 


BI 


L 


FE 


\\\ 


DG 


pat 


DP 





^ 



6550 POKE S+24,A FH 

6560 POKE S+4,17 FF 

6570 RETURN IM 

7000 REM *** GET KEYBOARD INPUT *** FB 
7010 GETK$:IFK$="" THEN GOSUB2110:GOT070 



JD 
JD 
OA 

EE 
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7020 IFK$=CHR$(147)THEN350 
7030 IFK$=" " THEN G0SUB5000:G0T07010 
7040 IF K$="A" AND R0W>1 THEN R0W=R0W-1 
GOSUB3010:GOT07010 

7050 IF K$="Z" AND R0W<5 THEN R0W=R0W+1 
GOSUB3010:GOT07010 GC 

7060 IF K$="." AND C0U5 THEN COUCOL+1 
G0SUB30 I : G0T070 I FK 

7070 IF K$="," AND C0L>1 THEN COL^COL-1 
G0SUB30 1 : G0TO70 1 B J 

7080 G0T07010 FL 

8000 REM ******* DRAW BOARD ******* IC 
8010 CH=1:PRINTB1$; :IFK$=CHR$(147)THEN81 
00 PJ 

8020 PRINTHM$;SPC(6) ;CHR$(117) ; :F0RX=1T0 
27:PRINTCHR$(96);:NEXT:PRINTCHR$(105) IG 
8030 PRINTSPC(6)CHR$(98);" "; :F0RX=1T025 
: PR INTCHR$( 164);: NEXT: PRINT" "CHR$(98) MC 
8040 PRINTLEFT$(D0$,2):F0R X=l TO 20 LH 

8050 PRINT SPC(6);CHR$(98);CHR$(167);SPC 
(25);CHR$(180);CHR$(98) EF 

8060 NEXT I A 

8070 PRINTHM$;LEFT$(DO$,23); BC 

8080 PRINTSPC(6)CHR$(98);" "; :F0RX=1T025 
:PRINTCHR$(163);:NEXT:PRINT" "CHR$(98) MF 
8090 PRINTSPC(6) ;CHR$(106) ; :FORX=1T027:P 
RINTCHR$(96) ; : NEXT :PRINTCHR$( 107) HK 

8100 FOR R0W=1 TO 5 DM 

8110 FOR C0L=1 TO 5 DA 

8120 IF R0W=5 AND C0L=5 THEN PRINTB3$;:C 
U$-BS$:GOSUB3040:G0TO8170 KM 

8130 PRINTB3$;:CU$=BS$:G0SUB 3040 KJ 

8140 PRINTB1$;:CU$=T$:GOSUB3040 BN 

8150 PRINTB2$;:CU$=SZ$:G0SUB3040 DI 

8160 PRINTCO$(ROW);CH$(CH);B2$;CHR$(125) 



:CH=CH+1 

8170 NEXT COL 

8180 NEXT ROW 

8190 RETURN 

9000 REM ******* ML ROUTINES 

9010 F0RI=49416T049815 

9020 READT:POKEI,T:NEXT 

9030 RETURN 



******* 



LO 
GF 
HN 
IM 
ON 
GD 
CF 
IM 



49416 DATA32, 226, 193, 165,251,166,252,32, 
155 , 193 , 32 , 205 , 193 , 166 . 254 , 202 , 48 EI 
49433 DATA21, 24, 165, 208, 105, 40, 133, 210,1 
33,214,165,209,105,0,133,211,32 JL 
49450 DATA 119, 193, 202, 16, 235, 164, 253, 185 
,32,192,145,208,185,72,192,145,212 DA 
49467 DATA136,16,243,32,226,193,88,96,23 
4,234,234,234,234,234,234,234,32 KG 
49484 DATA226,193,32,132,194,170,165,251 
,32,155,193,32,205,193,166,254,202 PL 
49501 DATA240,208,56,165,208,233,40,133, 
210,133,214,165,209,233,0,133,211 BL 
49518 DATA24, 32, 119, 193, 202, 16, 234, 48, 18 
4,41,3,9,216,133,215,164,253 DM 

49535 DATA177,210,145,208.177,214,145,21 
2,136,16,245,165,211,133,209,165,210 GM 
49552 DATA133,208,165,215,133,213,165,21 
4,133,212,96,72,169,216,133,208,172 KG 
49569 DATA136, 2, 136, 132, 209,24. 165,208,1 
05,40,133,208,165,209,105,0,133 CF 
49586 DATA209 , 202 , 16 , 240 , 24 , 104 , 101 , 208 , 
133,208,133,212,165,209,105,0,133 PI 
49603 DATA209,41,3,9,216,133,213,164,253 
,96,165,2,208,3,169,32,44 NE 

49620 DATA177,208,153,32,192,177,212,153 
,72,192,136,16,236,96,120,162,30 HL 
49637 DATA 181, 208, 72, 189, 0,1 92, 149, 208,1 
04,157,0,192,202,16,241,96,234 FK 
49654 DATA234,234,234,234,234,234,234,32 
,226,193,32,132,194,165,251,166,211 EO 
49671 DATA32, 155, 193, 160,0, 177, 208, 133,2 
10,177,212,72,144,13,200,177,208 GG 
49688 DATA72 ,177 , 212, 136, 145, 212, 104, 145 
,208,200,196,253,144,239,165,2,208 NJ 
49705 DATA3, 169, 32, 44, 165, 210, 145, 208, 10 
4,145,212,198,211,198,254,16,201 CO 
49722 DATA32 , 226 , 193 , 88 , 96 , 234 , 234 , 234 , 2 
34,234,234,234,234,32,226,193,32 01 
49739 DATA132,194,165,251,166,211,32,155 
,193,177,208,133,210,177,212,72,164 PO 
49756 DATA253,240,15,136,177,208,72,177, 
212,200,145,212,104,145,208,136,208 BB 
49773 DATA241,165,2,208,3,169,32,44,165, 
210,145,208,104,145,212,198,211 AN 
49790 DATA198 , 254 , 16 , 203 , 48 , 182 , 166 , 252 , 
138,24,101,254,133,211,96,234,24 DC 
49807 DATA164,252,166,251,32,240,255,96, 
234 LB 

~1 
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Continued from page 80 

BASIC does with memory where it thinks screen mem- 
ory is. The VIC chip is still looking at 1024, which 
BASIC isn't changing. 

Now, if you are using this technique in a long pro- 
gram, then of course you'll have to move video mem- 
ory to a higher block. As it stands, your program would 
only have the space between the end of screen memory 
at 2048 and the beginning of BASIC'S screen memory 
at 15360. That's line for this example program, but a 
long game would need more elbow room. For the tech- 
nique of moving video memory, see the column two 
mt)nths ago, which played games with memory like you 
wouldn't believe. 

This technique will also work with the VIC, which 
also has its BASIC screen memory pointer at 648. How- 
ever, it is almost worthless to try this technique unless 
you have expanded memory beyond 8K; if you do have 
an expanded VIC. you should have little trouble trans- 
lating this program from the 64 version included in this 
issue. 

WORMS IN COLOR MEMORY 

You can do a lot more with color memory than just 
highlight options. Remember that the character patterns 
only decide which dots in a character cell display fore- 
ground color and which display background color. It's 
color memory that does the rest. For example, you could 
fill the entire .screen with characters, but if the back- 
ground color and the foreground color were the .same, 
the screen would look completely blank. Only when you 
changed color memory would any portion of the screen 
become visible. 

So here is a rudimentary game that lets you control 
a worm moving around the screen. Every character on 
the screen is the same-CHS(90). the diamond-shaped 
dot. However, most of them are invisible. Some of them 
are orange— these are the segments of the worm. Some 
of them are green -these are food. When the worm eats 
food, it gets longer. 

The worm is run through the array variable WMf/iJ- 
Each element of the array represents a segment of the 
worm: each element contains the address of that seg- 



ment in color memory. Every time the worm moves, 
all the addresses are changed in the array V/M(n), as 
segment 2 is now "located" where segment 1 used to be. 
But only the first and last segments need to be POKEd- 
the first segment is changed to the worm color. CW, 
and the last segment is changed to the background col- 
or. CB. When 12 bits of food have been "'eaten" and the 
worm is 15 .segments long, the game starts over. 

Use f? and f5 for vertical movement. SHIFT and 
COMMODORE for horizontal movement. Press RUN/ 
STOP to end the game. Both VIC and 64 versions are 
included in the program listings section. 

Next month we'll take a close look at a fantastic pro- 
gram from Electronic Arts: Seven Chies of Gold. And 
we'll look at ways to make a program respond to the 
player's behavior, so that the whole mood of a game can 
take on the personality the player shows while playing. 

What we're talking about is, in a sense, behavioral con- 
ditioning. By setting up a reward and punishment sys- 
tem, we'll be encouraging some actions and discourag- 
ing others. It's just as the parents of videogame players 
always suspected -we game designers are out to turn 
our players into puppets! 

Thanks to Walter Meyers and Jan Iverson for send- 
ing me their excellent games. Both of you set difficult 
problems for yourselves and solved them admirably. 1 
only wish you were offering them for publication, so 
that other readers could see some of the dazzling things 
that can be done with resourceful and creative game pro- 
gramming. 

Also, thanks to Derward F. McKinney, who kindly 
sent in all the changes that would be necessary to allow 
Hie Emerald Elephant of Cipangii. from one of these 
columns last fall, to run on the VIC 20 (with at least 
!6K), If anyone would care to have a copy of his letter, 
send a stamped, self-addressed envelope to: 

Elephant for VIC 
546 Lindley Road 
Greensboro, NC 27410 

I'll xerox Mr. McKinney 's letter and send you a copy. 
Since I don't have memor>' expansion on my VIC, I can't 
test his changes, but I assume they work. D 

SEE PROGRAM LISTINGS ON PAGE 88 
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THE ULTIMATE 



i^rr»Tmii 



EXPLORING BIT MAP 
GRAPHICS ON THE C-64 



SCREEN DUMPING 



IN THE 64 



GETTING SCREEN BIT 

GRAPHICS TO YOUR 

PRINTER 
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hred of waiting forever 
for your progbamsto load? 
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LOGIC 
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"* BASEBALL GAME 

^>* PiTSTOPn 



INTRODUCING THE FAST lOAD 
CARTRIDGE FROM EPYX. 

You're tired of waiting forever for your Commodore 64 
programs to load. But it's no use glaring at your disk 
drive. Calling it names won't help, either. It was born 
slow — a lumbering hippo. You need the FAST LOAD 
CARTRIDGE from EPYX. FAST LOAD transforms 
your Commodore 64 disk drive from a lumbering hippo 
into a leaping gazelle. With FAST LOAD, programs 
that once took minutes to load are booted up in a matter 
of seconds. 

FAST LOAD can load, save and copy your disks five 
times faster than normal. It plugs into the cartridge port 



of your Commodore 64 and goes to work automatically, 
loading your disks with ease. And that's only the 
beginning. You can copy a single file, copy the whole 
disk, send disk commands, and even list directories 
without erasing programs stored in memory. 

And unlike other products, the FAST LOAD 
CARTRIDGE works with most programs, even copy 
protected ones, including the most popular computer 
games. 

The FAST LOAD CARTRIDGE from Epyx. Easy 
to insert, easy to use and five times faster. So why 
waste time waiting for your disks to load? 

Speed them up with FAST LOAD! 



Reader Service No. 209 
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BEACH-HEAD — As 

commander of armed fi 
' in ihe Pacific, y 
assignmeni is a toiigh one Your mission is lo obiaii 
naval victory and invade enemy terri;^-/ with land forces BEACH 
— The vi/artime drama continues vvith The Dictator Stnkt 
BEACH-HEAD It is a true..-t;ead to head' two player game with i 
sirnutation and superb muldscreen giaptnics RAID OVER MOSCO^ 
p"he Soviets launch a first strike, against Ihe United Slates Can ' 
COmmfindns fpa"! in linif to Stop the attack' 
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Software incorporated 



These Access Software products are compatible with thei 
Commodore 64, Atari, Apple ll+ZHC/IIE and IBM PC/PC Jr. B| 

sure to looK for other Access Software products at a store near y<J 



DON'T MISS THE BOAT! 




SUBSCRIBE 
TOAHOV! 

D Send me twdve issues of AHOY! fix- $19.95 
($26.95 Canada & elsewhere). I imdo^ 
tand diat I will be billed later. 

D Send me twenty-four issues of AHOY! for 
$37.95 ($49.95 Canada & elsewhere). I 
understand that I will be billed later. 

NAME 

ADDRESS 

CITY 

STATE ZIP 



READER SERVICE CARD 

To request additional information on any product advertised or otherwise pictured in lliis issue of Ahoy,' 

that is accompanied by a reader service number, circle the corresponding number below and mail this 

card. We will promptly forward your request to the designated companies. 
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PLEASE ANSWER THE QtXfTnONS BELOW, 

Sci mmi if* 

AOlule BOhnuk ■» 
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